Buenas hace mucho que no pasaba... Lei en muchos lugares "como forzar el ingreso de mayusculas en un textbox" vi cada codigo orrendo, asi que les pongo algo sensillo facil y que funciona perfecto.
Código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Lo que hace es al presionar una tecla en el textbox, en vez de escribir esa tecla la cambia por otra...
1- vuelve a chr (osea caracter) la tecla presionada...
2- Transforma en mayuscula ese chr (osea la letra) (nota: si ya esta en mayuscula obviamente lo deja asi, y si la letra es un caracter raro queno tiene mayuscula lo deja igual)
3- Vuelve a generar el ascii de esa letra en "mayuscula"....
Eso es todo.