tecla textbox

Saludos a todos: Esta funcionalidad de VB6 Private Sub TextBox1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase$(Chr$(KeyAscii ))) End Sub que hace que: cuando se presiona una tecla en minuscula, automaticamente aparezca en la textbox como ...