ユーザーフォームの入力項目を一括クリアするプログラム（VBA）

Public Sub CtrlsClear(ctrls As Controls, Optional blListClear As Boolean = False)
'ユーザーフォームの入力項目をすべてクリア
'blListClear：Trueの場合はコンボボックスとリストボックスの候補もクリア
    'コントロールコレクション(Controls)から1つずつ取り出してクリア
    Dim ctrl As Control
    For Each ctrl In ctrls
        Select Case TypeName(ctrl)
            Case "TextBox", "RefEdit"
                ctrl.Value = ""
            Case "CheckBox", "OptionButton", "ToggleButton"
                ctrl.Value = False
            Case "ComboBox", "ListBox"
                ctrl.Value = ""
                If blListClear Then ctrl.Clear
        End Select
    Next
End Sub
'/////呼び出し方法(ユーザーフォーム)/////
Private Sub CommandButton1_Click()
'クリックイベントなどでCtrlsClearプロシージャを呼び出す
    
    Call CtrlsClear(Me.Controls)
    
    'コンボボックス/リストボックスの候補もクリアしたい場合
    Call CtrlsClear(Me.Controls, True)
End Sub

    'コントロールコレクション(Controls)から1つずつ取り出してクリア
    Dim ctrl As Control
    For Each ctrl In ctrls
        Select Case TypeName(ctrl)
            Case "TextBox", "RefEdit"
                ctrl.Value = ""
            Case "CheckBox", "OptionButton", "ToggleButton"
                ctrl.Value = False
            Case "ComboBox", "ListBox"
                ctrl.Value = ""
                If blListClear Then ctrl.Clear
        End Select
    Next