استفسار عن صنع دالة بمحرر فيجوال بالاكسل

[M.NHAKAMI]

السلام عليكم 

حاولت صنع دالة بمحرر الفيجوال بالاكسل الدالة عبارة عن مدخلات لـ textbox  لا يقبل الادخال فيه غير الارقام  لكن لم تتنفذ معي هناك خطأ لم اعرفه لذا ارفقت الملف مع العلم ان الدالة عملتها بفيجوال 2012 ونجحت معي 

Function numbers_onle(ByVal e As MSForms.ReturnInteger, KeyPressEventArgs)
        If e.KeyChar = "0" Or e.KeyChar = "1" Or e.KeyChar = "2" Or e.KeyChar = "3" Or e.KeyChar = "4" Or e.KeyChar = "5" Or e.KeyChar = "6" Or e.KeyChar = "7" Or e.KeyChar = "8" Or e.KeyChar = "9" Or e.KeyChar = "" Then
            Exit Function
        Else
           MsgBox ("يجب ادخال ارقام فقط  " & " " & e.KeyChar)
            e.KeyChar = ""
        End If
    End Function


Private Sub TextBox2_KeyPress(ByVal e As MSForms.ReturnInteger)
numbers_onle (e)
End Sub

 

صنع دالة.xlsm