Можно ли вводить данные в Textbox как в поле с маской

Dim bEsc As Boolean 'переменная модуля - перед первой процедурой
'...
Private Sub TextBox1_Change()
If bEsc Then Exit Sub
bEsc = True
Select Case Len(TextBox1)
Case 1, 5, 9, 12
    TextBox1 = TextBox1 & "-"
Case 2, 6, 10, 13
    TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End Select
bEsc = False
End Sub

Private Sub TextBox1_Enter()
    TextBox1 = Replace(TextBox1, "-", "")
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Set r = CreateObject("vbscript.regexp")
    r.Pattern = "^(\d)(\d\d\d)(\d\d\d)(\d\d)(\d\d)$"  ' ÿ òàê ïîíèìàþ - ýòî òåëåôîííûå íîìåðà? áðàòü â ñêîáêè âòîðóþ ãðóïïó öèôð íå íàäî?
    If Not r.test(TextBox1) Then MsgBox "íåïðàâèëüíûé ôîðìàò íîìåðà, äîëæíî áûòü 11 öèôð"
    TextBox1 = r.Replace(TextBox1, "$1-$2-$3-$4-$5")
End Sub

'модуль
Public LtLast As Integer
 
Sub www()
LtLast = 0
UserForm1.Show
End Sub
 
'модуль формы
Private Sub TextBox1_Change()
Dim Lt As Integer
Lt = Len(TextBox1)
If LtLast = Lt Then Exit Sub
Select Case Lt
Case 1, 5, 9, 12
    If Lt > LtLast Then
        TextBox1 = TextBox1 & "-"
    Else
        TextBox1 = Left(TextBox1, Lt - 1)
    End If
End Select
LtLast = Len(TextBox1)
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox1) <> 15 Then MsgBox "Неправильный формат номера: должно быть 11 цифр!"
End Sub

'модуль
Public LtLast As Integer
 
Sub www()
LtLast = 0
UserForm1.Show
End Sub

LtLast = 0
UserForm1.Show