Visual Basic - Fallo en rutina para mayusculas

Hola foreros

Tengo la siguiente rutina para convertir a mayusculas el texto que se ingresa en un combo:

Public Sub Mayus (caja as control)
caja=UCase(LTrim(caja))
caja.selstart=Len(caja)
end sub

Esta se la llama en el evento change, entonces por cada caracter se convierte a mayusculas, hasta ashi todo bien. Pero cuando se quiere modificar alguna letra o letras del medio de la palabra ingresada me posiciona al ultimo del text (por esta sentencia caja.selstart=Len(caja))

Como puedo hacer para solucionar esto? pense en que haga la conversion letra por letra, no la cadena completa ...pero como lo hago,

gracias y saludos

Puedes hacerlo directamente en el evento KeyPress del Text:
Dim sCaracter as String * 1
sCaracter = UCase(Chr(KeyAscii))
KeyAscii = Asc(sCaracter)
-- Irá poniendo en mayúscula cada caracter que se ingrese. Si lo que quieres es convertir la cadena completa, lo puedes hacer en el evento LostFocus:
Text1.Text = UCase(Text1.Text)
Saludos

gracias x la ayuda. Lo voy a probar y te cuento como me fue.

salu2
pedro

gracias por la ayuda, me sirvio perfectamente.

pedro