Public Function BrowseForPC(hwndOwner As Long, ByVal sTitle As String, ByVal _
  sStartPath As String) As String
Dim iNull%
Dim lpIDList As Long
Dim lResult As Long
Dim spath$
Dim udtBI As BrowseInfo
Dim lpSelPath As Long
 
On Error GoTo Errorhandler
 
    With udtBI
        .pIDLRoot = 0
        .hwndOwner = hwndOwner
        .lpszTitle = lstrcat(sTitle, "")
        .lpfnCallback = FARPROC(AddressOf BrowseCallbackProcStr)
        .ulFlags = BIF_BROWSEFORCOMPUTER
        lpSelPath = LocalAlloc(LPTR, Len(sStartPath) + 1)
        CopyMemory ByVal lpSelPath, ByVal sStartPath, Len(sStartPath) + 1
        .lParam = lpSelPath
    End With
    lpIDList = SHBrowseForFolder(udtBI)
    If lpIDList Then
        spath = String$(MAX_PATH, 0)
        lResult = SHGetPathFromIDList(lpIDList, spath)
        Call CoTaskMemFree(lpIDList)
        iNull = InStr(spath, vbNullChar)
        If iNull Then spath = Left$(spath, iNull - 1)
    End If
    'if cancel was pressed, sPath = ""
    BrowseForPC = spath
    Call LocalFree(lpSelPath)
    Exit Function
 
Errorhandler:
End Function