'Allow only in upper case and lower and continue

Private Sub TextBox1_Change()
    On Error Resume Next
    TextBox1 = UCase(TextBox1)
    On Error GoTo 0
End Sub

Private Sub TextBox1_Change()
    On Error Resume Next
    TextBox1 = StrConv(TextBox1, vbProperCase)
    On Error GoTo 0
End Sub

'Allow only numbers
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim ch As String
    ch = Chr$(KeyAscii)
    If Not ( _
        (ch >= "a" And ch <= "z") Or _
        (ch >= "A" And ch <= "Z") Or _
        (ch >= "0" And ch <= "9") _
    ) Then
        ' Cancel the character.
        KeyAscii = 0
    End If
End Sub