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

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

Module Module1
  Sub Main()
    Dim frase As String = "Gosto muito de VB.NET"

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

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

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