EXCEL VBA フォルダ名とファイル名からフルパスにする

'   機能　　　:  フォルダ名とファイル名からフルパスにする
'
'    返り値　　:     -
'
'    引き数　　:    ByVal pstrフォルダ名 As String
'                   ByVal pstrファイル名 As String
'    機能説明　:　  フォルダ名の最後に\をついているか判定し　　-
'　　　　　　　　　フルパスにする。
'
'    備考　　　:     -
'
'    この関数のURL　　：　https://pgbigoroku.hatenablog.com/entry/2022/08/17/093728
'
'    この関数を利用するために必要な関数：
'
'    バージョン　　：2022/8/17
'
Public Function nstrフルパスにする(ByVal pstrフォルダ名 As String, ByVal pstrファイル名 As String) As String
    If Right(pstrフォルダ名, 1) = "\" Then
        nstrフルパスにする = pstrフォルダ名 & pstrファイル名
    Else
        nstrフルパスにする = pstrフォルダ名 & "\" & pstrファイル名
    End If
End Function