Visual Basic Text Box tips

Some tips you like use in vb text box

(a) In text box all in Capital letter use below

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Details Description:
First keyascii code convert into character , it is converted into capital letter agin then it is converted into keyascii code.

(b) allow only number in text box

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii))=False then keyascii=0
End Sub

(c) Not allow number in text box like name field
Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii))=True then keyascii=0
End Sub

(d) Make a currency text box you can use like this

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) = 0 Then Exit Sub
If InStr(1, Text1.Text, ".") Then KeyAscii = 0
End Sub