Public Enum BroserType
    bif_none = 0                    'OK ist immer an
    BIF_BROWSEFORCOMPUTER = 4096    'Computer suchen
    BIF_BROWSEFORPRINTER = 8192     'drucker suchen
    BIF_BROWSEINCLUDEFILES = 16384  'Mit Dateien
    BIF_DONTGOBELOWDOMAIN = 8
    BIF_EDITBOX = 16                'Mit Path-EDIT-Box
    BIF_RETURNFSANCESTORS = 32
    BIF_NEWFOLDERBUTTON = 64        'mit "neues Verzeichnis" Schaltfläche
    BIF_RETURNONLYFSDIRS = 1        'OK ist an bei Verzeichnis
    BIF_STATUSTEXT = 128
    BIF_VALIDATE = 256
End Enum

Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

Const MAX_PATH = 260

Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

Sub Main()
    Dim iNull As Integer, lpIDList As Long, lResult As Long
    Dim sPath As String, udtBI As BrowseInfo

    With udtBI
        'Set the owner window
        '.hWndOwner = Me.hWnd
        'lstrcat appends the two strings and returns the memory address
        .lpszTitle = lstrcat("C:\", "")
        'Return only if the user selected a directory
        .ulFlags = 2 ^ 1
    End With

    'Show the 'Browse for folder' dialog
    lpIDList = SHBrowseForFolder(udtBI)
    If lpIDList Then
        sPath = String$(MAX_PATH, 0)
        'Get the path from the IDList
        SHGetPathFromIDList lpIDList, sPath
        'free the block of memory
        CoTaskMemFree lpIDList
        iNull = InStr(sPath, vbNullChar)
        If iNull Then
            sPath = Left$(sPath, iNull - 1)
        End If
    End If

End Sub