formato mayusculas

[Judgement]

Saludos, una forma rapida de lograrlo seria:

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= 97) And (KeyAscii <= 122) Then
        KeyAscii = KeyAscii - 32
    End If
End Sub

Espero que te sea de utilidad