[Microformt]

الأخوة الكرام
 السلام عليكم ورحمة وبركاته
هذا كود إضافة عملة 

كود :

Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "Currency")
End Sub

السؤال هنا
كيف اظهر رسالة للمستخدم  في حال عدم  إدخاله عملة في Text ؟
 يعني 
 في حال أدخل المستخدم نص اوغيره تظهر رسالة رساله ادخل عمله في text ؟

تحياتي

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

كود :

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