Visual Basic 6 - solo lettere maiuscole

Mi son piantato chi mi dà una dritta :

nell'evento keypress di una textbox vorrei che quando digito una lettera questa sia scritta maiuscola.
La stessa etxt dovrebbe anche accettarmi oltre alle lettere i umeri ed il solo carettere - (meno).

Semplice:

Private Sub txt1_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub

Ciao
Ti posto una possibile soluzione :

Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)
if not isnumeric (text1.text) and text1.text <> "-" then exit sub
text1.text=UCase(text1.text)
End Sub