【VBA】MkDirでフォルダを作る

Public Function MakeFolderPath( _
                                    ByVal path As Variant, _
                                    ByVal folderName As String) As Variant

    folderPath = path & "¥" & folderName
    Dim folderPath As Variant

    'フォルダが存在していない場合のみ、フォルダ作成
    If NotExistsFolder(folderPath) Then MkDir folderPath

    'フォルダ作成してないときは中身が空になる
    MakeFolderPath = folderPath
End Function


'フォルダがすでに存在していないことを確認
Private Function NotExistsFolder(ByVal myPath As String) As Boolean
    NotExistsFolder = False
    If Dir(myPath, vbDirectory) = "" Then NotExistsFolder = True
End Function