كيف نجعل مربع النص لا يقبل إلا رقم أو نص إنجليزي

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii > 122 Then KeyAscii = 0

End Sub

122 هى قيمة الحرف z والمعروف أن حروف اللغة الإنجليزية تأتى قبل أى لغة أخرى

اخي الكريم اتمنى ان الكود التالي يفي بالغرض

if keyascii >asc("A") and keyascii<asc("Z") then
then 
else
keyascii=0
end if

1-هذا الكود للحروف الانجليزية الكبيرة

طبعا الكود السابق الذي كتبه الاخ sphinx صحيح بس هاي بطريقة نوعا ما اخرى

بارك الله فيكم وفي علمكم

(h)