No evento key key press do seu text coloque:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If (Chr(KeyAscii) < "A" Or Chr(KeyAscii) > "Z") And _
(Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9") And _
(KeyAscii <> 8) And _
(KeyAscii <> vbKeySpace) Then KeyAscii = 0
End Sub
O código acima permite que se escreva somente em letras maiusculas sem acento e numeros
