Trace Character Amount Visual Basic 2008

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Label2.Text = Len(TextBox1.Text)
    End Sub