Using recursion is an un-necessary overhead. You could achieve the same result without putting this much strain on your stack by iterating through an array:

Function CreateFolder(Path As String) As Scripting.Folder

Dim...