Microsoft Access 掲示板

返り値が必要ならFunctionプロシージャ、返り値が必要なければSubプロシージャを使えばいいでしょう。
とくに返り値がなくても処理が成功したか、失敗したかを返すためにFunctionにすることはよくあります。

具体例があったほうが分かり安いと思いますので、現状の「ファイル１を保存する」のコードを提示してもらったら、それをもとにどのように汎用関数（プロシージャ）にするか説明できると思います。

提示のコードでは変数に値が代入されていないので、正常には動かないですよね。
実際にボタンのクリック時に記述している正常に動くコードを提示してもらえますか。

Dim aName As String :aName = test1.txt
Dim bPath As String :bPath = "C:\Users\me\Desktop\test2
Dim cPath As String :cPath = "C:\Users\me\Desktop\test3"
Dim dText As String :dText = "test4\"
Dim fText As Stirng :eText = "test5\"
Dim gText As String :fText = "test6\"

    If IsNull(Me.txt●●) Then
    MsgBox gText & "を記入してください"
    Exit Sub
            ElseIf AcDir(bPath, vbDirectory) = "" Then
            MsgBox "フォルダが存在しません。"
            Exit Sub
                 ElseIf AcDir(bPath & "\" & aName, vbNormal) = "" Then
                 MsgBox aName & "が見つかりません。"
                 Exit Sub
                      ElseIf AcDir(cPath & "\" & dText, vbDirectory) <> "" Then
                      FileCopy bPath & "\" & aName, cPath & "\" & dText & "\" & aName
                      Shell "Explorer.exe " & cPath & "\" & dText & "\", vbNormalFocus
                      Exit Sub
                            ElseIf AcDir(cPath & fText, vbDirectory) <> "" Then
                            MsgBox "「" & dText & "」フォルダが見つかりません。「" & fText & "」フォルダに保存します。"
                            FileCopy bPath & "\" & aName, cPath & "\" & fText & "\" & aName
                            Shell "Explorer.exe " & cPath & "\" & fText & "\", vbNormalFocus
                            Exit Sub
                                Else: MsgBox "「" & dText & "」「" & fText & "」フォルダのどちらも見つかりません。"
                                         Shell "Explorer.exe " & cPath, vbNormalFocus
                                
    End If
    End Sub

一応、私の確認したところでは正常に動いているものに対して、一括置換しました。
不備あれば申し訳ありません。

Private Sub から書いてもらえますか。

    Dim aName As String: aName = Test1.txt
この Test1.txt ってなんですか。

    Dim fText As Stirng: eText = "test5\"
    Dim gText As String: fText = "test6\"

ここは、

    Dim fText As Stirng: fText = "test5\"
    Dim gText As String: gText = "test6\"

の書き間違いですか。

正常に動いているものに対して、一括置換しました。

正常に動いているものをそのままコピーして貼り付けてもらうのはダメですか。

あと、どのようなことをしたいのか箇条書きの文章で説明してもらえますか。
それから汎用にする場合、どこが変化して、どこが共通なのか分かるように説明してください。

このようにやりたいことを分析して他人にも伝わるよう整理することはプログラミングにおいて大切なことです。
人間に伝わらないことを、それより融通のきかないコンピュータに伝えて正しく動作させることは不可能です。

お忙しいところお返事ありがとうございます。
そのままのコードをのせることが難しいのですが、
時間ができ次第、改めてわかりやすくまとめたいと思っています。
そのときは、またよろしくお願いいたします。

一度ユーザー定義関数をキーワードに調べてみることをおすすめします

お気にかけてくださり、ありがとうございます。
とりあえず値渡しで、変数の中身だけ変えてそれぞれの処理を呼び出すようにすることはできるようになりました。
ユーザー定義関数の使いどころはピンときていないので、コード、説明等書き換える時間が取れたらまた相談させていただきたいです。その際は宜しくお願いいたします。

キーワードが「汎用関数」よりも「ユーザー定義関数」のほうが欲しい情報がより多く見つかるだろうくらいの話なのでその「使いどころ」は気にしなくていいですよ