exclude a textbox from a clear all command button

[synergy16]

good morning all. if i am doing a "clear all" such as the code below, is there a way to do that and exclude a textbox from that?

 Dim ctl        For Each ctl In Me.Controls
            If TypeOf ctl Is msforms.TextBox Then
                ctl.Text = ""
            End If
        Next ctl

 

[Logit]

.

Option Explicit


Sub clrall()
Dim ctl
    For Each ctl In Me.Controls
        If TypeOf ctl Is msforms.TextBox Then
            If ctl.Name <> "TextBox1" Then
                ctl.Text = ""
            End If
        End If
    Next ctl
End Sub