Obtendo a posição da primeira ocorrência de um caractere em uma string

'Este exemplo mostra como obter a posição da primeira 
'ocorrência de um caractere em uma string. Se o caractere
'não for encontrado, o valor -1 é retornado.

Module Module1
  Sub Main()
    Dim frase As String = "Veja esta frase"

    'vamos obter a posição da primeira ocorrência da
    'letra "a"
    Dim pos As Integer = frase.IndexOf("a")

    If pos <> -1 Then
      Console.WriteLine("Primeira ocorrência foi encontrada " _
         & "na posição " & pos)
    Else
      Console.WriteLine("O caractere não foi encontrado")
    End If

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