[عبد العزيز البسكري]

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

جرّب هكذا مثلاً إن شاء الله تضبط معك ..

إحتراماتي

كود :

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
MsgBox "الرجاء ، أدخل أرقاماً فقط", vbCritical, "خطأ"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
End Sub