Ciao Binos.
Ti indico varie soluzioni alla tua esigenza.

Una soluzione possibile potrebbe essere questa che ti copio da un mio programma:

codice:
Private Sub txtNote_Validate(Cancel As Boolean)    ' Note eventuali: solo conversione in maiuscolo - dato non obbligatorio
   If txtNote.Text <> Space(0) Then
      txtNote.Text = UCase(txtNote.Text)
   End If
End Sub
In questo modo puoi scrivere in minuscolo ma, al passaggio sul controllo successivo, il testo è convertito automaticamente in maiuscolo.

Esiste comunque una funzione che permette la conversione automatica in maiuscolo carattere per carattere digitato.
Eccola descritta:

codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
   KeyAscii = Maius(KeyAscii)
End Sub
codice:
Function Maius(KeyAscii As Integer)
   Maius = IIf(KeyAscii > 96 And KeyAscii < 123, KeyAscii - 32, KeyAscii)
End Function
Questo però vuol dire che per ogni tua textbox devi gestire un evento.

Un'altra soluzione più utile secondo me, è però l'uso del controllo Masked Edit Box (da aggiungere dai Riferimenti) che permette di formattare i dati immessi direttamente in maiuscolo senza agire sul codice ma interagendo sulla proprietà "Mask".
Ti conviene però leggere qualcosa in proposito.

Fammi sapere.