I have simple textBox and I want to validate its input including \"+\" , \"-\" and \".\" here is what I have tried
Private Sub DisplayValue_TextBox_Change()
If TextBox1.Value <> "" Then Dim N As Boolean N = True Do While N If Not IsNumeric(TextBox1.Value) Then TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1) Else N = False End If Loop End If