Visual Basic - Ucase(Text)

Tengo un textbox multilinea a cual luego de perder el foco le hago un ucase para asegurarme que quede todo en mayuscula el probema es que al hacer esto todo el texto salta una linea mas abajo, como hago para evitar esto o para volver esa linea mas arriba por medio de codigo

Te salta una línea más abajo (o sea que te deja una linea en blanco arriba).....

O te ocupa una línea más (en vez de 4 ahora son 5)????

Positivo, me deja una linea en blanco ¿?

Pasame el codigo así lo veo. Es muy raro eso

Pues bien, en el evento keypress del texto le pongo lo siguiente

If keyascii = 13 and txt_trabajos.text <> empty then
txt_trabajos.text = Ucase(txt_trabajos.text)
txt_importe.setfocus
end if

tambien probe usando Trim(Txt_trabajos) para quitar los espacios pero nada