Public Sub ControlsLeeren(frm As Form)
'Mit dieser Funktion können bestimmte Steuerelemente in einer Userform geleert 
' werden
 
Dim Ctrl As Control
 
For Each Ctrl  In frm.Controls    'die For-Each-Schleife zählt alle 
' Steuerelemente die auf einer Form sind
    Select Case TypeName(Ctrl)   'Über die Mehrfachauswahl kann der Typ des 
    ' Steuerelemtents geprüft werden
        Case "TextBox"              'ist es eine Textbox,
            Ctrl.Text = ""      'dann Textbox leeren
 
        Case "CheckBox"             'ist es eine CheckBox,
            Ctrl.Value = 0          'dann diese ausschalten
 
        Case "OptionsButton"        'gleiche wie Checkbox
            Ctrl.Value = False
    End Select
Next Ctrl 
 
End Sub

ControlsLeeren Me

ControlsLeeren Form1