[elgokr]

وعليكم السلام ورحمة الله وبركاته

مرحباً اخى حامد محمد

تعال كده مع بعض نتخيل ان القيمة اللى بتتكلم عليها على هذا الشكل كمثال

كود :

Private Sub Command1_Click()
       Dim ss As String
       ss = "R3244444"

طيب لما ان القيمة ثابتة من حيث ان حرف R دائماً فى القيمة اى كانت الارقام التى تتاليها

وكل ما انت بحاجة اليه هو عرض الارقام بدون الحرف فكل ما عليك فعله هو اختيار احد الحلول التالية

كود :

       ' 1
       MsgBox (Mid(ss, 2, Len(ss)))
       ' 2
       MsgBox (Replace(ss, "R", ""))
       ' 3
       MsgBox (Split(ss, "R")(1))
       ' 4
       MsgBox (Right$(ss, Len(ss) - 1))

قم باختيار ما يناسبك من احد الاسطر المذكورة بالاعلى

حيث سيكون الناتج بالنهاية هو 3244444

تحياتى لك

وتمنياتى لك التوفيق