Option Explicit
Dim bNoChangeEvent As Boolean

bNoChangeEvent = True
' Textfelder löschen
...
bNoChangeEvent = False

Private Sub Text1_Change(Index As Integer)
  If bNoChangeEvent Then Exit Sub
  ...
End Sub

Sub LöscheAlleTextFelder(frmForm As Form)
  Dim ctlControl As Object
  bNoChangeEvent = True
  For Each ctlControl In frmForm.Controls
    Select Case TypeName(ctlControl)
      Case "TextBox"
        ctlControl.Text = ""
      Case "ComboBox"
        ctlControl.Text = ""
        ctlControl.ListIndex = -1
    End Select
  Next 
  bNoChangeEvent = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de