Private Sub Command1_Click()
SetWindowLong Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_NUMBER
End Sub

Private Sub Form_Load()
Command1_Click
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (Asc(Chr(CLng(KeyAscii))) >= 97) Then
MsgBox "Why do you press this button you moran? These 'a-z' or 'a-ö'(if you are a scand) keys are lame and can't do nothing!", vbExclamation, "Im an silly fool"
End If
End Sub