السلام عليكم
عمل ممتاز اخت امل اعجبني اختيارك لحدث LostFocus جزيت الف خير
كود:
Private Sub TextBox1_LostFocus()
If IsNumeric(TextBox1.Text) = False Then
A = MsgBox("فضلا ... أدخل رقمك وليس اسمك", vbOKOnly, "رسالة البرنامج")
TextBox1.Text = ""
Exit Sub
End If
End Sub