VBA Multiple Textbox Exit Event Question

Public WithEvents Lbl As MSForms.Label
Public Frm As UserForm

Private Sub Lbl_Click()
    Lbl.BorderColor = &HFF& 'this is where you set the main action you want to occur
End Sub

Private Sub txtExpCloseDate_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
        'i've stripped out some other stuff, here's the only relevant bits. Clicking the textbox
        'launches my calendar form
        frmCal.Calendar_Change
        frmCal.Show
        'now my calendar form is showing, and the user is about to click on one of the labels representing a day of the month.
End Sub

Dim colLabels As New Collection 'this is a form level variable

Private Sub UserForm_Initialize()
'initialize class variables
Dim Ctl As MSForms.Control
Dim obEvents As clsControlEvents

For Each Ctl In Me.Controls
    If TypeOf Ctl Is MSForms.Label And Ctl.Tag <> "" Then
        Set obEvents = New clsControlEvents
        Set obEvents.Lbl = Ctl   'Lbl and Frm were the two variables dimmed in the class module remember?
        Set obEvents.Frm = Me
        colLabels.Add obEvents
    End If
Next Ctl

End Sub

' Code in userform module
' It's assumed that there are 3 texboxes on the form
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  MyValidation Cancel
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  MyValidation Cancel
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  MyValidation Cancel
End Sub

' Common validation subroutine
Private Sub MyValidation(Optional ByVal Cancel As MSForms.ReturnBoolean)
  Dim tb As MSForms.TextBox
  Set tb = Me.ActiveControl
  ' Put your validation code below
  If Not IsNumeric(tb) Then
    MsgBox "Should be numeric value", vbExclamation, tb.Name
    Cancel = True
  End If
End Sub