Как известно, VBA-функция MkDir может создать только папку в существующем каталоге (папке).
 
Например, код MkDir "C:\Папка\" отработает корректно в любом случае (создаст указанную папку),
а код MkDir "C:\Папка\Подпапка\Каталог\" выдаст ошибку Run-time error '76': Path not found
(потому что невозможно создать каталог Подпапка в несуществующем ещё каталоге Папка)
 
Можно, конечно, использовать несколько функций MkDir подряд - но это усложняет код.
 
Самый простой способ решения проблемы - использование WinAPI-функции SHCreateDirectoryEx, которая может создать все нужные папки и подпапки за один запуск.

Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _

                                     (ByVal hwnd As Long, ByVal pszPath As String, _

                                      ByVal psa As Any) As Long

Sub CreateFolderWithSubfolders(ByVal ПутьСоздаваемойПапки$)

    ' функция получает в качестве параметра путь к папке

    ' если такой папки ещё нет - она создаётся

    ' может создаваться сразу несколько подпапок

    If Len(Dir(ПутьСоздаваемойПапки$, vbDirectory)) = 0 Then    ' если папка отсутствует

        SHCreateDirectoryEx Application.hwnd, ПутьСоздаваемойПапки$, ByVal 0&    ' создаём путь

    End If

End Sub

Пример использования функции SHCreateDirectoryEx:

Sub ПримерИспользованияCreateFolderWithSubfolders()

    ' этот макрос создаст на диске C папку "Создаваемая папка",

    ' в ней - подпапку "Подпапка", а в последней - подпапку 1234

    Путь = "C:\Создаваемая папка\Подпапка\1234\"

    CreateFolderWithSubfolders Путь

End Sub