Public WithEvents g_objTextBox As MSForms.TextBox

  - AfterUpdate
  - BeforeUpdate
  - Enter
  - Exit

Option Explicit

Public WithEvents g_objTextBox As MSForms.TextBox

Private Sub g_objTextBox_Change()
  MsgBox "In der TextBox '" & g_objTextBox.Name & _
        "' wurde eine Eingabe gemacht!"
End Sub

Private Sub g_objTextBox_KeyPress(ByVal KeyAscii As _
      MSForms.ReturnInteger)
 'Nur Eingabe von Zahlen in TextBox  zulassen
  Select Case KeyAscii
    Case Asc("0") To Asc("9"), 8, 13
    Case Else
      KeyAscii = 0
  End Select
End Sub

Option Explicit

Private m_objTextBoxes() As New CTextBoxNum

Private Sub Init_TextBoxes()
  Dim objCtl  As Control
  Dim nCnt    As Integer

  For Each objCtl In Me.Frame1.Controls
    If TypeOf objCtl Is MSForms.TextBox Then
      nCnt = nCnt + 1
      ReDim Preserve m_objTextBoxes(1 To nCnt)
      Set m_objTextBoxes(nCnt).g_objTextBox = objCtl
    End If
  Next objCtl
End Sub

Private Sub UserForm_Initialize()
  Call Init_TextBoxes
End Sub

Private Sub UserForm_Terminate()
  On Error Resume Next
  Erase m_objTextBoxes
  On Error GoTo 0
End Sub