Making VBA Form TextBox accept Numbers only (including +, - and .)

Question

I have simple textBox and I want to validate its input including \"+\" , \"-\" and \".\" here is what I have tried

Private Sub DisplayValue_TextBox_Change()         


        

Answer 1

Having relied up till now on string parsing to do this job, I'm glad I decided to check and see how other people do it and found this Q.

I've refined Ruben Alvarez's excellent answer. The below will allow numerical entries only, and only one decimal point.

Private Sub txtShift1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii
        Case 46
            If InStr(1, txtShift1, ".") > 0 Then KeyAscii = 0
        Case 48 To 57
        Case Else
            KeyAscii = 0
    End Select

End Sub

This could be further refined to allow only a single "+", "-" etc. as necessary.