how to skip user form clear to skip particular text box

Hello
try this code

Private Sub Clearfrm_Click()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
            If ctl.Name <> "box5" Then
                ctl.Value = ""
            End If
        End If
    Next ctl
End Sub