The first 4 characters can be any alphabet (A-Z) and the fifth one should be zero ( 0 ) or any numeric value in the textbox of user form.

[SamarthSalunkhe]

Hi All,

I am using the below code to restrict numbers only in the textbox of user form, it is working very well. just for knowledge purposes, I want to change restrictions like in the test box I want to allow the first 4 characters can be any alphabet (A-Z) and the fifth one should be zero ( 0 ) or any numeric value. Eg. : "ABCD0BD459"

Private Sub txtMobile_Change()
 'Mobile number Must be in Numbers only.
Dim x As Long
Dim a As String
a = "##########"

With txtMobile
    x = Len(.Text)
    If Not .Text Like Left(a, x) Then
          .Text = Left(.Text, x - 1): MsgBox "Mobile number Must be Numeric", vbExclamation, "Incorrect Mobile Number"
    End If
End With
End Sub

 

[Akuini]

Sorry, we should add " Cancel = True"

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Const PatternFilter As String = "*[!0-9A-Za-z ]*"
    With TextBox1
     If .Text Like PatternFilter Then
        MsgBox "Special Character is not allowed in this tab", vbExclamation, "Special Character Found"
        Cancel = True
      End If
    End With

End Sub

 

[SamarthSalunkhe]

Try:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Const PatternFilter As String = "*[!0-9A-Za-z ]*"
    With TextBox1
     If .Text Like PatternFilter Then
        MsgBox "Special Character is not allowed in this tab", vbExclamation, "Special Character Found"

      End If
    End With

End Sub

Thank you so much, for your support.

and sorry to disturb you again and again.

 

[Akuini]

You should use the code from post #21, I added " Cancel = True"
You're welcome, glad to help & thanks for the feedback.