چجوری میشه فقط در داخل text box متن قرار داد؟

چجوری میشه فقط در داخل text box متن قرار داد؟

Private Sub Text2_KeyPress(KeyAscii As Integer)
'ONLY APPHABETS
If (Asc(UCase(Chr(KeyAscii))) < 65 Or Asc(UCase(Chr(KeyAscii))) > 91) And KeyAscii <> 8 And KeyAscii <> 32 Then
KeyAscii = 0
End If
End Sub
با اين كد ميتوني فقط متن رو وارد تكست باكس كني

f isnumeric(text1.text)=true then
text1.text=""i

با اجازه Shaparak کدش رو تصحيح می کنم:

نقل قول:

---

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) = True Then KeyAscii = 0
End Sub

---