Here is pure VBA that does create all the folders in the path:
Function CreateFolder(MyPath As String)
'Created by Dane A. Miller aka dallr
'create recursive folders on a path eg. "c:\dane\fred\harry"
Dim c As Integer
On Error Resume Next
If InStr(4, MyPath, "\") = 0 Then
MkDir...