Galera, Estou precisando do processo de colocar em um TextBox o sistema de letras maiusculas, onde tudo que for digitado vai aparecer em Maiusculo..

Tente assim:

 

Private Sub Text1_LostFocus()
    Text1 = UCase(Text1)
End Sub

T+

Rinaldo

Uma outra opção, é no evento KeyPress você adicionar o seguinte:

Private Sub Text1_KeyPress(KeyAscii As Integer)

    KeyAscii = Asc(Ucase(Chr(KeyAscii)))

End Sub

 

Com isso, durante a digitação os caracteres já serão colocados em maúsculas.