codice:
MsgBox(Len(Text1.Text))