Private Function GetBrowseForFolder(hwndOwner As Long) As String
   Dim bi As BROWSEINFO
   Dim pidl As Long
   
   Dim lResult As Long
   Dim sPath As String
   Dim iNull As Integer
   
   If SHGetSpecialFolderLocation(hwndOwner, _
                                 CSIDL_DRIVES, _
                                 pidl) = NOERROR Then
     'fill in the required members
      With bi
         .hOwner = hwndOwner
         '.pidlRoot = pidl
         .pszDisplayName = Space$(MAX_PATH)
         .lpszTitle = "Select a folder for routed incoming files:"
         .ulFlags = BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE
         '.ulFlags = BIF_BROWSEFORCOMPUTER
         'If bNewDialog Then .ulFlags = .ulFlags Or BIF_NEWDIALOGSTYLE
         'If bNoNewFolder Then .ulFlags = .ulFlags Or BIF_NONEWFOLDERBUTTON
      End With
      pidl = SHBrowseForFolder(bi)
      If pidl <>  0  Then
            sPath = String$(MAX_PATH,  0 )
            lResult = SHGetPathFromIDList(pidl, sPath)
            Call CoTaskMemFree(pidl)
            iNull = InStr(sPath, vbNullChar)
            If iNull Then sPath = Left$(sPath, iNull -  1 )
      End If  'If pidl
      'If cancel was pressed, sPath = ""
      GetBrowseForFolder = sPath
   End If  'If SHGetSpecialFolderLocation
End Function

SHGetSpecialFolderLocation(hwndOwner, CSIDL_DRIVES, pidl)
.pidlRoot = pidl

   lParam As String             'extra info passed back in callbacks

      With bi
...
         .lParam = InitPath
         .lpfn = GetPointer(AddressOf BFFCallback)
...
    If uMsg = BFFM_INITIALIZED Then
        Debug.Print "BFFM_INITIALIZED"
        If (lpData <>  0 ) Then
            Debug.Print "lpData <> 0"
            If (lstrlen(lpData) <>  0 ) Then
                BFFSetPath hwnd, lpData
'   Use to set the dialog's selected path from the BFF callback
'   This method uses the standard path, but a PIDL can be used
'   as well.
'
Public Sub BFFSetPath(ByVal hWndDialog As Long, ByVal Path As String)

    Call SendMessage(hWndDialog, BFFM_SETSELECTION,  1 , ByVal Path)

End Sub

    ElseIf uMsg = BFFM_SELCHANGED Then
        Debug.Print "BFFM_SELCHANGED" & " lparam=" & lParam
        If lParam <>  0  Then
            sPath = String$(MAX_PATH,  0 )
            lResult = SHGetPathFromIDList(lParam, sPath)
            'Call CoTaskMemFree(lParam)
            iNull = InStr(sPath, vbNullChar)
            If iNull Then sPath = Left$(sPath, iNull -  1 )
            Debug.Print "sPath=" & sPath
            BFFEnableOKButton hwnd, CBool(Len(sPath))
        End If  'If pidl
    End If
    
End Function

'   Used to enable or disable the dialog's OK button from the BFF callback
'
Public Sub BFFEnableOKButton(ByVal hWndDialog As Long, ByVal Enable As Boolean)
    Call SendMessage(hWndDialog, BFFM_ENABLEOK,  0 , ByVal Abs(Enable))
End Sub

                SHGetSpecialFolderLocation hwnd, CSIDL_DRIVES, pidl
                Debug.Print "pidl=" & pidl
                Call SendMessage(hwnd, BFFM_SETSELECTION,  1 , ByVal pidl)

Private Function BFFCallback(ByVal hWnd As Long, ByVal uMsg As Long, ByVal lParam As Long, ByVal lpData As Long) As Long
    Dim sPath As String
    Dim lResult As Long
    Dim pidl As Long
    Dim iNull As Integer

    If uMsg = BFFM_INITIALIZED Then
        If (lpData <>  0 ) Then
            If (lstrlen(lpData) <>  0 ) Then
                BFFSetPath hWnd, lpData, True 'InitPath (as String)
                '(!) в случае ошибочного пути автоматически выделяется "Мои документы"
            End If
        Else
            'в случае пустого(!) пути
            SHGetSpecialFolderLocation hWnd, CSIDL_DRIVES, pidl 'получаем pidl для "My Computer"
            BFFSetPath hWnd, pidl, False '"My Computer" (pidl)
            'BFFEnableOKButton hwnd, False 'чтобы OK была сразу disabled -а надо ли?
        End If
    ElseIf uMsg = BFFM_SELCHANGED Then
        If lParam <>  0  Then
            sPath = String$(MAX_PATH,  0 )
            lResult = SHGetPathFromIDList(lParam, sPath)
            'Call CoTaskMemFree(lParam)
            iNull = InStr(sPath, vbNullChar)
            If iNull Then sPath = Left$(sPath, iNull -  1 )
            BFFEnableOKButton hWnd, CBool(Len(sPath)) 'чтобы OK была disabled для My Computer/My Network etc.
        End If
    End If
End Function

'   Used to enable or disable the dialog's OK button from the BFF callback
Public Sub BFFEnableOKButton(ByVal hWndDialog As Long, ByVal Enable As Boolean)
    Call SendMessageLong(hWndDialog, BFFM_ENABLEOK,  0 , ByVal Abs(Enable))
End Sub

'   Use to set the dialog's selected path from the BFF callback
'   This method uses the standard path, but a PIDL can be used
'   as well.
'   UseStrPath=true -реальный путь как String; UseStrPath=false -pidl виртуальной папки ("My computer")
Public Sub BFFSetPath(ByVal hWndDialog As Long, ByVal Path As String, ByVal UseStrPath As Boolean)
    Call SendMessageLong(hWndDialog, BFFM_SETSELECTION, Abs(UseStrPath), ByVal Path)
    If IsWin7 Then 'если этого не делать, то скроллинг на Win7 не гарантирован
        'http://connect.microsoft.com/VisualStudio/feedback/details/518103/bffm-setselection-does-not-work-with-shbrowseforfolder-on-windows-7
        Sleep  200 
        Call PostMessageLong(hWndDialog, BFFM_SETSELECTION, Abs(UseStrPath), ByVal Path)
    End If
End Sub