MSG BOX PREVENTS setfocus HELP

[Guest]

If a letter is enterd into the text box, it sends a msg box to say must be
numeric and then should set focus and highlight last enterd text to change
it. If I remove the msgbox it selects the text box and highlites if the msg
box line is left in it does not select the textbox and does not hightlite
what am i doint wrong thanks in advance:

Private Sub txtphone_Change()
If Not IsNumeric(txtphone) Then
MsgBox "Must be Numeric"
txtphone.SetFocus
txtphone.SelStart = 0
txtphone.SelLength = 1000
Exit Sub
End If

End Sub

 

[Guest]

Remove the command Exit Sub.

Swisse

 

[Guest]

i have removed that it still dosent work

 

[Dave Peterson]

Maybe you could just validate the textbox when the user tries to leave:

Option Explicit
Private Sub txtphone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(txtphone.value) Then
MsgBox "Must be Numeric"
Cancel = True
End If
End Sub

 

[Guest]

Thanks, but this does not fix the problem. I still need to set the focus back
to the textbox

 

[Guest]

Read my answer at your other post.

Swisse

 

[Tom Ogilvy]

Cancel = True
causes the focus not to leave the textbox.