Verificando a ocorrência de uma substring no início de uma string

'Este trecho de código mostra como verificar se uma string
'começa com uma determinada substring

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

    If frase.StartsWith(palavra) Then
      Console.WriteLine("A substring inicia com " & palavra)
    Else
      Console.WriteLine("A substring não inicia com " & palavra)
    End If

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