loop controls in userform except one textbox

I pasted incorrectly in the first post, my code should be

Private Sub CommandButton1_Click()
 Dim cCont As msforms.Control

    For Each cCont In Me.Controls
        With cCont
            Select Case TypeName(cCont)
            Case "ComboBox": .Value = ""
            Case "TextBox"
                If .Tag = "" Then .Value = Empty
            Case "Label": .Caption = ""
            End Select
        End With
    Next cCont
End Sub

I can't really see why you need to clear labels

Well spotted Marcol