كود ادخال فى التكست بوكس فقط باللغة الإنجليزية

[احمد حسن الشاعر]

ارجو المساعدة فى حل هذه المشكلة

عند ادخال الارقام فى التكست بوكس اجدها مرة باللغة العربية ومرة باللغة الانجليزية 

اريد ادخال كل الارقام باللغة الانجليزية 

ما الحل 

وشكرا

 

[Ali Mohamed Ali]

السلام عليكم اخى الكريم-كان عليك من البداية رفع ملف لما تطلب

ولكم يمكنك وضع هذا الكود داخل حدث التكست بوكس

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 0) Or (KeyAscii <= 127) = False Then keycode = vbNullString
End Sub