Verificando se uma substring está contida em uma string

'Este trecho de código mostra como verificar a existência
'de uma substring em uma string

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

    If frase.Contains(palavra) Then
      Console.WriteLine("A substring está contida na string")
    Else
      Console.WriteLine("A substring não está contida na string")
    End If

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