サンプルマクロは、ユーザフォームに配置した
すべてのテキストボックスの値を一度にクリアします。
フォームのコードウインドに記述してください。

Sub Sample()

    Dim myCtrl As Control

    For Each myCtrl In Controls
        If TypeName(myCtrl) = "TextBox" Then _
            myCtrl.Value = vbNullString
    Next

End Sub