Function ReferenceInfo()

   Dim strMessage As String
   Dim strTitle As String
   Dim refItem As Reference
  
   On Error Resume Next
  
   For Each refItem In References
      If refItem.IsBroken Then
         strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
      Else
         strMessage = "Reference: " & refItem.Name & vbCrLf _
            & "Location: " & refItem.FullPath & vbCrLf
      End If
      Debug.Print strMessage
   Next refItem

End Function