[Mohamad Anan]

اذا كنت تقصد مجموع قيم الأحرف في جدول ASCII

كود :

Private Sub Form_Load()
   Dim I As Integer
   Dim L As Integer
   Dim S As String
   Dim SS As String
   Dim A As Integer
   Dim T As Integer
   
   S = "احمد"
   L = Len(S)
   For I = 1 To L
       SS = Mid(S, I, 1)
       A = Asc(SS)
       T = T + A
   Next
       MsgBox T
End Sub