formato mayusculas

[Avellaneda]

Hola, aquí tienes otra forma:

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(StrConv(Chr(KeyAscii), vbUpperCase))
End Sub