Formatting a textbox to accept specific characters

[Nour]

Hello house. Pls I need assistance on this issue....
I have a phone number textbox which is formatted to accept on numerical values of upto 11 characters
Problem:- I want the phone number format to always start with either 070, 080, or 090 followed by the rest of the 8 digits that can be any value.
Request:- pls how do I make these first 3 characters of the textbox to accept only these digits. Bear in mind the 1st and 3rd characters must only be 0 while the 2nd varies from 7 to 9. Thanks.

 

[Akuini]

Try:

Private Sub TextBox1_Change()
' the first, second and third char:  (0-1, 7-9, 0-2)
' length 11 char
Dim x As Long
Dim tx As String
tx = "[0-1][7-9][0-2]########"
    With TextBox1
        x = Len(.Text)
        Select Case x
            ' uncomment ': Beep  if you want a beep sound
            Case 1 To 3
                If Not .Text Like Left(tx, x * 5) Then .Text = Left(.Text, x - 1)  ': Beep
            Case Is > 3
                If Not .Text Like Left(tx, x + 12) Then .Text = Left(.Text, x - 1) ': Beep
        End Select
    End With
    
End Sub

To understand what the pattern "[0-1][7-9][0-2]########" means, please read this article:

Wildcard Characters used in String Comparisons

Office VBA reference topic

docs.microsoft.com

Let me know if you need more explanation.

 

[Nour]

Try:

Private Sub TextBox1_Change()
' the first, second and third char:  (0-1, 7-9, 0-2)
' length 11 char
Dim x As Long
Dim tx As String
tx = "[0-1][7-9][0-2]########"
    With TextBox1
        x = Len(.Text)
        Select Case x
            ' uncomment ': Beep  if you want a beep sound
            Case 1 To 3
                If Not .Text Like Left(tx, x * 5) Then .Text = Left(.Text, x - 1)  ': Beep
            Case Is > 3
                If Not .Text Like Left(tx, x + 12) Then .Text = Left(.Text, x - 1) ': Beep
        End Select
    End With
   
End Sub

To understand what the pattern "[0-1][7-9][0-2]########" means, please read this article:

Wildcard Characters used in String Comparisons

Office VBA reference topic

docs.microsoft.com

Let me know if you need more explanation.

Thank you very much for the prompt assistance Akuini. I really can't express enough my appreciation.

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.