userform textbox error trapping

**runTNT** · 03-31-2011, 06:09 PM

Hello,
I have a userforum with several textboxes in them. My first textbox asks for a phone number. I want the user to only be able to enter numbers and after the first 3 numbers it automatically adds in a "-" and again after the next 3 then stops them form entering more numbers after 4 more, so it looks like ### - ### - ####.

I also have another textbox and I would like the user to be able to enter anyting except %&*@?:_-+= those symbols.

Thanks,

-Eric

**davesexcel** · 03-31-2011, 07:32 PM

Try this,

Private Sub TextBox1_Change()

    If Len(TextBox1) = 3 Then TextBox1 = TextBox1 & "-"
    If Len(TextBox1) = 7 Then TextBox1 = TextBox1 & "-"
    If Len(TextBox1) = 12 Then MsgBox "Enough Already": TextBox2.SetFocus'goes to the next textbox when enough numbers are entered

End Sub

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

The keypress code can be found here for additional details
http://www.cpearson.com/excel/TextBox.htm