Aumentar valores en un Label

Bueno con este code pueden Aumentar el valor de un label en este ejemplo se usara para contar los Caracteres de un Texto y la cantidad de palabras que contiene.

Para contar los Caracteres de un TextBox en un Label

Label1.Text = CStr(Len(TextBox1.Text))

Y para contar las palabras de un TextBox en un Label es Así

Dim i As Integer
        Dim Cadena As String
        con = 1
        Cadena = TextBox1.Text
        For i = 1 To Len(Cadena)
            If Mid(Cadena, i, 1) = " " Then
                con = con + 1
            End If
        Next
        Label1.Text = CStr(con)

Ambos codes los pueden poner en el Evento TextChanged de los TextBox o RichTextBox, o si quieren lo pueden poner en un Timer.