Obtendo a posição da última ocorrência de um caractere ou substring em uma string

'Ao contrário do método IndexOf, o método LastIndexOf
'retorna a posição da última ocorrência de um caractere
'ou substring em uma string. Se o caractere ou substring
'não for encontrado, o valor -1 é retornado.

'O exemplo abaixo retorna a posição da última ocorrência
'da substring Java em uma string

Module Module1
  Sub Main()
    Dim frase As String = "Java? Gosto muito de Java"

    'obtém a posição da última ocorrência
    Dim pos As Integer = frase.LastIndexOf("Java")

    'exibe o resultado
    Console.WriteLine("A última ocorrência foi na posição " & pos)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module