جمع الأعداد من التكست بوكس

جرب الاتى بفرض ان التكست بوكس بإسم Text1

والليبل بإسم Lable1 كتب فى حدث تغيير النص للتكست

Private Sub Text1_Change()

Dim Result As Integer
Dim Tmp As String
Dim LenTmp As Byte
Dim Count As Byte
Tmp = Text1.Text
LenTmp = Len(Tmp)
Result = 0
  For Count = 1 To LenTmp
        Result = Result + Val(Mid(Tmp, Count, 1))
  Next Count
Label1.Caption = Result

End Sub