Restrict Textbox values to specific characters

[sharky12345]

Can someone show me how to restrict the input to a Textbox on a Userform to numbers and a foreward slash only?

I have an idea how to do numbers, but not including a foreward slash.

 

[dmt32]

Hi
try following

Place in STANDARD module

Function NumbersOnly(ByVal KeyAscii As MSForms.ReturnInteger) As MSForms.ReturnInteger
    Select Case KeyAscii
'valid entries [0-9]  "/"
    Case 47, 48 To 57
    
    Case Else
'cancel
        KeyAscii = 0
    End Select
    Set NumbersOnly = KeyAscii
End Function

By placing function in standard module you can call it from any userform in your project.

To call function - Userform textbox code example

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'allow numeric [0-9] / only
    KeyAscii = NumbersOnly(KeyAscii)
End Sub

Dave

 

[sharky12345]

Perfect!

Thanks Dave

 

[dmt32]

Perfect!

Thanks Dave

most welcome - appreciate your feedback

Dave

 

[bobsan42]

Check this for some thoughts on the subject. The suggested approach only works while someone is typing.
IMO a check of the complete final string upon exiting the control or before saving the data will help reduce unexpected results.