en el evento keypress del text:
Private Sub t_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
end sub
Private Sub t_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
end sub