Application.References.Count - количество ссылок
Application.References(i).FullPath - путь к ссылке

On Error Resume Next    ' после удаления ссылки на OCX
                        ' может появляться сообщение об ошибке
                        ' при обращении к свойству .FullPath
For i =  1  To Application.References.Count
   With Application.References(i)
      qqq = qqq & UCase$(GetShortPathName(.FullPath)) & vbCrLf
      If OCX_FullPath = UCase$(GetShortPathName(.FullPath)) Then
         OCX_Find = i
         Exit For
      End If
   End With
Next i
On Error GoTo  0 

Следующий пример создает ссылку на указанную библиотеку типов:

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

Для вызова данной функции допустимо использование процедуры,
сходной с нижеследующей, создающей ссылку на элемент управления Календарь:

Sub CreateCalendarReference()
	If ReferenceFromFile( "C:\Windows\System\Mscal.ocx" ) = True Then
		MsgBox  "Указатель установлен успешно." 
	Else
		MsgBox  "Указатель не был успешно установлен." 
	End If
End Sub