[ahmedfa71]

شكرا لكل الإخوة على الردود
وعلى الكود الشغال
بارك الله فيكم

---

السلام عليكم ورحمة الله وبركاته
عند تجربة الكود
If IsNumeric(TextBox1.Text) Then
            Dim Str As String = TextBox1.Text.Trim
            Dim p As Integer = 4

            Dim MyNumbers As New List(Of Integer)
            For i = 0 To Len(Str) - 1
                MyNumbers.Add(CInt((Mid(Str, Len(Str) - i, 1))) * p)
                p += 1
            Next

            Dim Result As Integer
            For Each Entry As Integer In MyNumbers
                Result += Entry
            Next

            If Len(Result) >= 3 Then
                Result = Mid(Result, Len(Result) - 2, 2)
                TextBox2.Text = Result
                ' MsgBox(Result)
            End If

        End If
الكود شغال مع جميع الأرقام ما عدا عند البدأ بالرقم  0 أو 1 أو 2 تظهر رسالة خطأ
يتوقف البرنامج عند السطر
  Result = Mid(Result, Len(Result) - 2, 2)

Conversion from string "" to type 'Integer' is not valid