Function ReferenceFromFile(strFileName As String) As Boolean
    Dim ref As Reference

    On Error GoTo Error_ReferenceFromFile
    ' Создает новую ссылку.
    Set ref = References.AddFromFile(strFileName)
    ReferenceFromFile = True

Exit_ReferenceFromFile:
    Exit Function

Error_ReferenceFromFile:
    MsgBox Err &  ": "  & Err.Description
    ReferenceFromFile = False
    Resume Exit_ReferenceFromFile
End Function

Public Function aaaa()
ReferenceFromFile ( "C:\Program Files\Microsoft Office\Office\MSO97.DLL" )
End Function