' Standard-Ordnerauswahl-Dialog aus der VBEx32.DLL
'Private Declare Function VBEX_SetAPath Lib "vbex32.dll" _
'  Alias "VBGETFOLDERDLG" () As String
Private Declare Function cdlgBrowseForFolder Lib "vbarchiv.dll" _
(ByVal hwnd As Long, ByRef Title As String, ByRef StartFolder As String, _
ByVal uFlags As bffFlags) As String
 
Private Enum bffFlags
    bffReturnOnlyFSDirs = &H1
    bffNewDialogStyle = &H40
    bffBrowseIncludeFiles = &H4000
End Enum

Private Function Browse() As Boolean
...
  'sPath = VBEX_SetAPath()
  sPath = cdlgBrowseForFolder(Me.hwnd, "Ordner auswähler", "", _
    bffNewDialogStyle)

Gru?, Stefan