フォルダが存在しなければ作成

Dim folderPath As String
folderPath = ThisWorkbook.Path & "hoge"
If Dir(filePath, vbDirectry) = "" Then
    MkDir folderPath
End If