Private Sub Command1_Click() Label1.Caption = Len(Trim(Text1.Text))End Sub
Label1.Caption = Len(Trim(Text1.Text))