関数へのやり方が分かりません。このファイルを読み込む処理を関数化
したいのですが、どのようにすれば良いでしょうか？教えてください♪

Option Explicit
Option Base 1
Private Const Mpath = "C:\DATA\"
Private Nowdate As String

'***** テキストファイルを読み込む *****
Private Sub Command2_Click()
    Dim strMyFile() As String
    Dim strtextFile As String
    Dim filekensaku As Integer
    Dim kakutyosi   As String
    Dim i           As Integer
    
    Nowdate = Format$(Date, "yyyy-mm-dd")
    kakutyosi = "TxT"
    strtextFile = Dir$(Mpath & Nowdate & "\*.*")
      
        Do While strtextFile <> ""
            If StrComp(Right$(strtextFile, 3), kakutyosi, 1) = 0 Then
                filekensaku = filekensaku + 1
                ReDim Preserve strMyFile(filekensaku)
                strMyFile(filekensaku) = strtextFile
            End If
            strtextFile = Dir$
        Loop
        For i = 1 To filekensaku
            If FileLen(Mpath & Nowdate & "\" & strMyFile(i)) = 0 Then
            Else
                List2.AddItem strMyFile(i)
            End If
        Next i

End Sub
'***** テキストファイル読込み終了 *****

関数にせずとも下記のようなプロシージャでもいいのでは
Private Sub GetFileName(kakutyosi As String, Mpath As String)


End Sub

これを標準モジュールに書けばよろしいのですか？
どのように書いて、どのように呼び出せばよいのか
教えてくださいっ。
なんども使いたいのですっきりさせたいです。

'標準モジュール
Option Explicit
Public Sub GetFileName(Mpath As String, myListBox As ListBox)
    Dim strtextFile As String
    Dim Nowdate As String
    Nowdate = Format$(Date, "yyyy-mm-dd")
    strtextFile = Dir$(Mpath & Nowdate & "\*.*")
    Do While strtextFile <> ""
        myListBox.AddItem strtextFile
        strtextFile = Dir$
    Loop
End Sub

'呼び出し場所で
Private Sub Command1_Click()
    Call GetFileName("C:\DATA", List2)
'    Call GetFileName("ファイルを取得したいフォルダ名", 表示したいListBox名)
End Sub

後はご自分で

ありがとうございます！
やってみます♪