类模块应用示例：一次控制所有文本框

Private WithEvents tbxCustomTextbox As MSForms.TextBox
Public Property Set Control(tbxNew As MSForms.TextBox)
 Set tbxCustomTextbox = tbxNew
End Property
Private Sub tbxCustomTextbox_Change()
 '用于显示哪个文本框被修改的消息框
 MsgBox "正在输入的文本框: " & tbxCustomTextbox.Name
End Sub
Private Sub tbxCustomTextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 Select Case KeyAscii
   Case 46 To 57
   Case Else
     KeyAscii = 0
 End Select
End Sub
Private Sub Class_Terminate()
 Set tbxCustomTextbox = Nothing
End Sub

Dim colTbxs As Collection
Private Sub UserForm_Initialize()
 Dim ctlLoop As MSForms.Control
 Dim clsObject As clsObjHandler
 '创建新集合来存储自定义文本框
 Set colTbxs = New Collection
 '遍历用户窗体中的控件
 For Each ctlLoop In Me.Controls
 '检查控件是否是文本框
   If TypeOf ctlLoop Is MSForms.TextBox Then
     '创建新实例
     Set clsObject = New clsObjHandler
     '设置为文本框
     Set clsObject.Control = ctlLoop
     '添加事件处理
     colTbxs.Add clsObject
   End If
 Next ctlLoop
End Sub
Private Sub UserForm_Terminate()
 Set colTbxs = Nothing
End Sub