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

Podría llamar a esta función usando un procedimiento como el siguiente, que
crea una referencia al control calendar:

Sub CreateCalendarReference()
 If ReferenceFromFile("C:\Windows\System\Mscal.ocx") = True Then
  MsgBox "Referencia establecida correctamente."
 Else
  MsgBox "Referencia no establecida correctamente."
 End If
End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)