Imports System.Timers
Imports System.Data
Imports System.Runtime.Interopservices
Imports Outlook = Microsoft.Office.Interop.Outlook 'hier natürlich ACCESS!
 
'Das COM Interface definieren
<ComVisible(True) _
Public Interface ILastAccess
    Function GetLastAccess() As String 'es müssen nur die Member des Interface 
    ' genannt werden
End Interface
 
<ComVisible(True)> _
<ClassInterface(ClassInterfaceType.None)> _
'Jetzt die Klasse, die für VBA veröffentlicht wird
 
Public Class MyAppTimer
     Inherits System.Timers.Timer
     Implements ILastAccess
 
     Private m_App AS Outlook.NameSpace 'hier Access-App evtl
     Private Shared m_LastAccess As String
 
     Public Property LastAccess As String
         Get
              Return m_LastAccess
         End Get
         Set( Value As String )
              m_LastAccess = Value
         End Set
      End Property 
 
      Public Property OutlApp As Outlook.NameSpace
         Get 
              Return m_App
         End Get
         Set( Value As Outlook.NameSpace )
              m_App = Value
         End Set
      End Property
 
      'ok jetzt das was VBA "sehen" kann:
      Public Function GetLastAccess() As String Implements _
        ILastAccess.GetLastAccess
           Return m_LastAccess
      End Function
End Class 
 
'Das war die COM-Klasse für VBA
 
'Innerhalb der Dll muss noch innerhalb von ThisAddIn eine Funktion 
' überschrieben werden
 
Public Class ThisAddin
     Private m_Timer As MyAppTimer
 
     Protected Overrides Function RequestComAddInAutomationService() As Object
          If m_Timer Is Nothing Then m_Timer = New MyAppTimer
          Return m_Timer
     End Function
 
     'ab hier der eigentliche Dll - Code