Option Explicit

Private Const BIBLIO_FILENAME As String = "Fm20.dll"
Private Const BIBLIO_NAME As String = "MSForms"

Private Sub AddReferenceFromFile()
  Dim objVBE As Object
  Dim oRef As Object

  Dim blnFound As Boolean

  On Error GoTo err_Handler
  Set objVBE = ActiveWorkbook.VBProject.References

  For Each oRef In objVBE
    If UCase(oRef.Name) = UCase(BIBLIO_NAME) Then
      blnFound = True
      Exit For
    End If
  Next

  If Not blnFound Then
    objVBE.AddFromFile BIBLIO_FILENAME
  End If

exit_Sub:
  Set objVBE = Nothing
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehler beim Laden der Datei " & BIBLIO_FILENAME, _
         Err.Description, vbOKOnly + vbCritical
  Resume exit_Sub
End Sub

Public Sub RemoveReferenceInProject()
  Dim objVBE As Object
  Dim oRef As Object

  On Error Resume Next
  Set objVBE = ActiveWorkbook.VBProject.References

  For Each oRef In objVBE
    If UCase(oRef.Name) = UCase(BIBLIO_NAME) Then
      objVBE.Remove objVBE(oRef.Name)
      Exit For
    End If
  Next

  Set objVBE = Nothing
  On Error GoTo 0
End Sub

Public Sub ListReferencesInProject()
  Dim objVBE As Object
  Dim oRef As Object
  Dim strTemp As String

  On Error Resume Next
  Set objVBE = ActiveWorkbook.VBProject.References

  For Each oRef In objVBE
    strTemp = "Bezeichnung: " & oRef.Description & vbCrLf
    strTemp = strTemp & "Name: " & oRef.Name & vbCrLf
    strTemp = strTemp & "Pfad: " & oRef.FullPath & vbCrLf
    strTemp = strTemp & "GUID: " & oRef.GUID & vbCrLf
    strTemp = strTemp & "Standard-Verweis: " & oRef.BuiltIn
    Debug.Print strTemp & vbCrLf
  Next

  Set objVBE = Nothing
  On Error GoTo 0
End Sub