Como contar as palavras em uma string

'Este exemplo mostra como contar as palavras em
'uma string usando o espaço como separador

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

    'remove os espaços em excesso
    Do While frase.IndexOf(Space(2)) >= 0
      frase = frase.Replace(Space(2), Space(1))
    Loop

    'conta as palavras
    cont = Split(frase, Space(1)).Length
    Console.WriteLine("A frase contém " & cont & " palavras")

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