Como contar as palavras em um TextBox de múltiplas linhas

'Este exemplo mostra como obter a quantidade
'palavras em um TextBox. 

'Veja que usamos a técnica de contar as palavras
'contidas em um array após retirar as quebras de
'linhas e espaços duplicados na string.

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

    'Obtém o texto da caixa de texto
    Dim texto As String = TextBox1.Text

    'Remove as quebras de linhas substituindo-as por
    'espaços
    texto = texto.Replace(Environment.NewLine, " ")

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

    'Obtém um array de palavras
    Dim palavras() As String = texto.Split(" ")

    'Obtém a quantidade de palavras
    Dim quant As Integer = palavras.Length

    'Exibe o resultado
    MsgBox("O TextBox contém " & quant & " palavras.")

  End Sub

End Class