كود حساب عدد حروف صندوق نص

'ضع الكود في الفورم

Private Sub Command1_Click()

MsgBox ("عدد الحروف = " + Str(Len(Text1.Text)))

End Sub