How to stop running the code when Pressing Backspace

Hi,

I have the following code to add dash mark to TextBox1 value depending on some condtions (mentioned in the code), the code works perfectly, but when we use Backspace Key to clear some charactors it is conflicting with the code running when changing Textbox1 value.

Private Sub TextBox1_Change()

With TextBox1
    If .Value = "OMTND" Then .Value = .Value & "-"
    If OptionButton1 = True And Len(.Value) = 8 And IsNumeric(Right(.Value, 2)) Then .Value = .Value & "-"
    If OptionButton1 = True And Len(.Value) = 11 And IsNumeric(Right(.Value, 2)) Then .Value = .Value & "-"
End With

End Sub

I there any solution for that?

Thanks,

hi,

Try changing your event macro by changing the name to either of the below examples. If you need more information, check out the Excel help files or do a quick search.

Option Explicit
Private Sub TextBox1_AfterUpdate()
'...
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'...
End Sub

hth
Rob

Try this:

Private Sub TextBox1_Change()
    Static iOld As Long
    Dim iNew    As Long

    With TextBox1
        iNew = Len(.Value)
        If iNew > iOld Then
            If .Value = "OMTND" Or _
               (OptionButton1 And _
                IsNumeric(Right(.Value, 2)) And _
                (iNew = 8 Or iNew = 11)) Then .Value = .Value & "-"
        End If
        iOld = iNew
    End With
End Sub

You're welcome. Would you please mark the thread as Solved?

See Help for the UCase function.

If UCase(.Value) = "OMTND" Or _