Private Declare Function MakePath Lib "imagehlp.dll" Alias _
  "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long 
 
Function Testverz() 
 
Dim Result As Long 
Dim myOrdner As String 
 
myOrdner = "d:\Testverzeichnis\Testprojekte\dlls\TestDLL" 
Result = MakePath(myOrdner) 
 
End Function

Private Sub Form_Load
   Testverz
End Sub