[اسلام الكبابى]

كود :

Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then MsgBox "", vbCritical, "من فضلك أدخل العملة كبيان رقمى": GoTo 10
If Val(Text1.Text) < 0 Then MsgBox "", vbCritical, "من فضلك أدخل العملة رقم موجب": GoTo 10
AA = Val(Text1.Text)
If AA <> Int(AA) < 0 Then MsgBox "", vbCritical, "من فضلك أدخل العملة رقم صحيح": GoTo 10

Print AA
Rem"واكتب هنا أى كود تريده"

10 End Sub