OK, so it's 2025 now - and it couldn't be any easier - just use the correct logic using the following:

dim fso = CreateObject("Scripting.FileSystemObject")
if not fso is nothing then
   if not fso.FolderExists("TheFolderYouWantToExist") then
      fso.CreateFolder("TheFolderYouWantToExist")
   end if
   '....and so on....
end if

REFERENCE : https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/filesystemobject-object