Hjælp til mapper?

Jeg har fundet denne kodestump men kan ikke lige få den til at virke...

Den opretter en hel stribe mapper på engang istedet for:
mkdir "C:\test"
mkdir "C:\test\test2"
mkdir "C:\test\test2\test3"
-------------------------------------------------------------------
Public Function DirCreateNested(dPath As String) As Boolean
 
' This function will create a nested directory
' ie c:\Dir1\Dir2\Dir3. Returns True if dirs
' are created successfully otherwise False.
 
Dim dNr As Integer, cNr As Integer

  On Error GoTo ErrHandler

  ' Set first char
  cNr = 1
  ' If last Char isn't \ then append it
  If Right$(dPath, 1) <> "\" Then
      dPath = dPath & "\"
  End If
 
  Do
      dNr = InStr(cNr, dPath, "\", vbTextCompare)
      If dNr >= cNr Then
        If DirExist(Left$(dPath, dNr)) = False Then
            MkDir (Left$(dPath, dNr))
        End If
        cNr = dNr + 1
        If cNr >= Len(dPath) Then
            Exit Do
        End If
      End If
  Loop
 
  DirCreateNested = True

Exit Function
 
ErrHandler:
  DirCreateNested = False
 
End Function
-----------------------------------------------------------------
Den stopper ved:
If DirExist(Left$(dPath, dNr)) = False Then