Mayusculas en VB 6.0

[fdx4u]

Hola, hace mucho que no toco VB6, pero creo que seria algo asi:

Public sub Text1_change()
text1.text = UCase(text1.text) // Ucase convierte en mayusculas el texto
text1.text = Len(Text1.text) // Posiciona el cursor al final del texto
end sub

Espero que te sirva.