Авто форматирование TextBox

Option Explicit
 
Const r = 7
Public WithEvents tx As MSForms.TextBox
Dim col As New Collection
Dim ExitUserForm As Boolean
 
 
Private Sub tx_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If tx.Name = "tx4" And (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0
End Sub
 
 
Sub MainLoop()
    Static oldFocus$, newFocus$
    On Error Resume Next
    Do
        oldFocus = Me.ActiveControl.Name
        DoEvents
        newFocus = Me.ActiveControl.Name
        If oldFocus <> newFocus Or Not (newFocus Like "tx#") Then
            Call CheckCueBanner
        End If
    Loop Until ExitUserForm
    End
End Sub
 
Sub CheckCueBanner()
    Dim i&, s$
    
    On Error Resume Next
    s = Me.ActiveControl.Name
    If s Like "tx#" Then Set tx = ActiveControl
    For i = 1 To 4
        With Me.Controls("tx" & i)
            If s <> .Name And .Text = "" Then
                .Text = col(.Name)
                .ForeColor = vbButtonShadow
            ElseIf s = .Name And .ForeColor = vbButtonShadow Then
                .Text = ""
                .ForeColor = vbWindowText
            End If
        End With
    Next
End Sub
 
 
 
Private Sub UserForm_Activate()
    Call MainLoop
End Sub
 
Private Sub UserForm_Initialize()
    Dim i&
    ExitUserForm = False
    For i = 1 To 4
        With Me.Controls.Add("forms.textbox.1", "tx" & i, 1)
            .Move r, i * r * 3, r * 25
            col.Add Choose(i, "Фамилия", "Имя", "Отчество", "Дата рождения"), "tx" & i
            Debug.Print ""
            .ForeColor = 0
        End With
    Next
    
End Sub
 
Private Sub UserForm_Terminate()
    ExitUserForm = True
End Sub

Option Explicit
 
Const r = 7
Dim WithEvents tx As MSForms.TextBox, WithEvents cb As MSForms.CommandButton
Dim col As New Collection
 
 
 
Sub MainLoop()
    Static oldFocus$, newFocus$
    On Error Resume Next
    Do
        oldFocus = Me.ActiveControl.Name
        DoEvents
        newFocus = Me.ActiveControl.Name
        If oldFocus <> newFocus Or Not (newFocus Like "tx#") Then
        
            If oldFocus = "tx4" Then
                With Controls("tx4")
                    If Not IsDate(.Text) And .Text <> "" And newFocus <> "cb" Then
                        MsgBox "Неверный формат дд.мм.гггг"
                        .SetFocus
                    End If
                End With
            End If
            Call CheckCueBanner
        End If
    Loop
    
End Sub
 
 
Private Sub cb_Click()
    Dim i&
    For i = 1 To 4
        Me.Controls("tx" & i).Text = ""
    Next
    Call CheckCueBanner
End Sub
 
Private Sub tx_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim i&, j&
    With tx
        If .Name = "tx4" Then
            i = InStrRev(.Text, ".", .SelStart + 1)
            j = InStr(.SelStart + 1 + Abs(Mid$(.Text, .SelStart + 1, 1) = "."), .Text, ".")
            If j = 0 Then j = Len(.Text) + 1
            j = j - i: .SelStart = i: .SelLength = j - 1
        End If
    End With
End Sub
 
 
Private Sub tx_Change()
    Static oldTx$, ss&, sl&, s$
    With tx
        If .Name <> "tx4" And .Text <> "" Then
            s = Left(.Text, 1)
            If s <> UCase(s) Then .Text = UCase(s) & Mid(.Text, 2)
        End If
    End With
End Sub
 
Private Sub tx_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If tx.Name = "tx4" Then
        Select Case KeyCode
        Case 188, 190
            KeyCode = 190
        Case 8, 37 To 40, 46, 48 To 57
        Case Else
            KeyCode = 0
        End Select
    End If
End Sub
 
 
 
Sub CheckCueBanner()
    Dim i&, s$
    
    On Error Resume Next
    s = Me.ActiveControl.Name
    If s Like "tx#" Then Set tx = ActiveControl
    For i = 1 To 4
        With Me.Controls("tx" & i)
            If s <> .Name And .Text = "" Then
                .Text = col(.Name)
                .ForeColor = vbButtonShadow
            ElseIf s = .Name And .ForeColor = vbButtonShadow Then
                If s = "tx4" Then
                    .Text = "01.01.1900"
                    .SelStart = 0
                    .SelLength = 2
                    
                Else
                    .Text = ""
                End If
                .ForeColor = vbWindowText
            End If
        End With
    Next
End Sub
 
 
 
 
Private Sub UserForm_Activate()
    Call MainLoop
End Sub
 
Private Sub UserForm_Initialize()
    Dim i&
    For i = 1 To 4
        With Me.Controls.Add("forms.textbox.1", "tx" & i, 1)
            .Move r, i * r * 3, r * 25
            col.Add Choose(i, "Фамилия", "Имя", "Отчество", "Дата рождения"), "tx" & i
            .ForeColor = 0
            If i = 4 Then .HideSelection = False
        End With
    Next
    Set cb = Me.Controls.Add("forms.CommandButton.1", "cb", 1): With cb
        .Move r, i * r * 3, r * 15
        .Caption = "Очистить все"
        Controls("cb").SetFocus
    End With
    
    
End Sub
 
Private Sub UserForm_Terminate()
    End
End Sub

Private Sub tx_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    '
    'Если в поле даты нужно вводить слова Октябрь или Июнь то лучше закоментировать эти строки
    '
    If tx.Name = "tx4" Then
        Select Case ChrW(KeyAscii)
        Case ",", "б", "ю" 'при нажатии этих клавиш всегда будет точка
            KeyAscii = 46
        End Select
    End If
End Sub