La cosa più semplice:

Nell'evento KeyPress del TextBox

KeyAscii = Asc(UCase$(Chr$(KeyAscii)))