[Ahmed_Mansoor]

أهلا أخي الكريم سالم , كما ذكر الأخ الكريم محمد يحيى , هذا الكود الكود ترجمة لكلامه جزاه الله خير , وإذا كان الكود ليس ماتريده يرجى التوضيح :

PHP كود :

Private Sub Command1_Click()

If Len(Trim$(Text1.Text)) < 10 Then Exit Sub

Dim zText1 As String
Dim LeftNumber As String
Dim MidNumber As String
Dim RightNumber As String

zText1 = Trim$(Text1.Text)

LeftNumber = Left$(zText1, 3)

MidNumber = Mid$(zText1, 4)
MidNumber = Left$(MidNumber, Len(MidNumber) - 6)

RightNumber = Right$(zText1, 6)

Text1.Text = LeftNumber & Val(MidNumber) + 1 & RightNumber

End Sub