Texbox - Numbers ONLY - Date

[Bob Phillips]

Trap the keypress

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9"): 'OK
        Case Else: KeyAscii = 0
    End Select
End Sub

as a starter example

.