Como retornar o tamanho do texto de um TextBox

'Este exemplo mostra como obter o tamanho do
'texto de um TextBox. 

Public Class Form1

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

    'Obtém a quantidade de caracteres no TextBox
    Dim quant As Integer = TextBox1.TextLength

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

  End Sub

End Class