Не могу понять, почему выдает ошибку "Can't find project or library" - VB

Public Function dhBrowseForFolder( _
ByVal lngCSIDL As Long, ByVal lngBifFlags As Long, strFolder As String, _
Optional ByVal hWnd As Long = 0, _
Optional strTitle As String = "Select Directory") As Long
Dim usrBrws As BrowseInfo
Dim lngReturn As Long
Dim lngIDL As Long
If SHGetSpecialFolderLocation(hWnd, lngCSIDL, lngIDL) = 0 Then
    With usrBrws
        .hwndOwner = hWnd
        .pidlRoot = lngIDL
        .strDisplayName = String$(dhcMaxPath, vbNullChar)
        .strTitle = strTitle
        .ulFlags = lngBifFlags
    End With
    lngIDL = SHBrowseForFolder(usrBrws)
    If lngIDL Then
        strFolder = String$(dhcMaxPath, vbNullChar)
        If SHGetPathFromIDList(lngIDL, strFolder) Then
            strFolder = dhTrimNull(strFolder)
            lngReturn = dhcNoError
        Else
            strFolder = dhTrimNull(usrBrws.strDisplayName)
            lngReturn = dhcNoError
        End If
    Else
        lngReturn = dhcErrorExtendedError
    End If
Else
    lngReturn = dhcErrorExtendedError
End If
dhBrowseForFolder = lngReturn
End Function