Verificando a ocorrência de uma substring no final de uma string

'Este trecho de código mostra como verificar se uma string
'termina em uma determinada substring

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

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

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