'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

Informe o 1º valor: 5
Informe o 2º valor: 1
Informe o 3º valor: 20
Informe o 4º valor: 6
Informe o 5º valor: 3
Informe o 6º valor: 4
Informe o 7º valor: 7
Informe o 8º valor: 12
Informe o 9º valor: 9
Informe o 10º valor: 8

O maior valor lido foi: 20
O menor valor lido foi: 1