[Ahmed_Mansoor]

أهلا أخي الكريم , كود أخي أمير لاغبار عليه , فقط قم بنقل تعريف المتغير Test_String والمتغير Str إلى داخل كود الزر وتنتهي المشكله وأقصد بالتعريف هذا الجزء :

PHP كود :

Dim Test_String As String
Dim Str As Integer 


ضعه داخل كود الزر ليصبح كود الفورم هكذا :

PHP كود :

Private Sub Command1_Click()
Dim Test_String As String
Dim Str As Integer
For Str = 1 To Len(Text1)
        If Not InStr("0123456789+-/*", Mid$(Text1, Str, 1)) = 0 Then
            Test_String = Test_String + Mid$(Text1, Str, 1)
        End If
Next Str
Text1 = Test_String
End Sub