Menjadikan Input TextBox Kapital

Option Explicit 
 
'This one line code makes the contents of text box in capital. As you keep in typing it. Just copy this code keypress  
Private Sub Text1_KeyPress(KeyAscii As Integer) 
    KeyAscii = Asc(UCase(Chr(KeyAscii))) 
End Sub