Klassenmodul: Enter-Event für Textbox

Klassemodul
Public WithEvents p_TextBox As MSForms.Control
Private Sub p_TextBox_Enter()
' Mein Code
End Sub

Public col                  As Collection
Private Sub UserForm_Initialize()
Dim ctrl As MSForms.Control
Dim instTextBox As clsTextBox
Set col = New Collection
For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "TextBox" Then
Set instTextBox = New clsTextBox
Set instTextBox.p_TextBox = ctrl
col.Add instTextBox
End If
Next ctrl
End Sub