Textboxen leeren, ausser zwei

Private Sub cmdNeue_Berechnung_Click()
Dim objControl As Control
    For Each objControl In Controls
       Select Case TypeName(objControl)
          Case "TextBox"
             objControl.Text = ""
          Case "ComboBox"
             objControl.ListIndex = -1
          Case "CheckBox"
             objControl.Value = False
          Case "OptionButton"
             objControl.Value = False
       End Select
    Next
End Sub