Global CLAS As New Colap
Global OLAP As Outlook.Application

Set OLAP = New Outlook.Application
Set CLAS.search_result = OLAP

Dim Stmp as String
Stmp = "urn:schemas-microsoft-com:" & "office:" & "office#Keywords like 'Work'"
 ' ich hab diese ^ Zeile nur zerstückelt, da ":" & "o" sonst als 
 ' Smilie-Img :o angezeigt würden.
Stmp = Stmp & " AND urn:schemas:calendar:dtstart > '" & Format(vonD, _
  "dd/mmm/yyyy") & "'"
Stmp = Stmp & " AND urn:schemas:calendar:dtstart < '" & Format(bisD, _
"dd/mmm/yyyy") & "'"
OLAP.AdvancedSearch _
        Scope:="Calendar", _
        Filter:=Stmp, _
        SearchSubFolders:=False, _
        Tag:="Meine VBA Suche"
End Sub

Public WithEvents search_result As Outlook.Application
 
Public Sub search_result_AdvancedSearchComplete(ByVal SearchObject As _
  Outlook.Search)
Dim OLRS As Outlook.Results
Dim OLIT As Outlook.AppointmentItem
If SearchObject.Tag <> "Meine VBA Suche" Then Exit Sub
Set OLRS = SearchObject.Results
OLRS.Sort "Start", 2 ' - olAscending
For Each OLIT In OLRS
         ... ' was immer Du mit den gefundenen Einträgen machen willst 
Next OLIT
Set OLIT = Nothing
Set OLRS = Nothing
Call  ... ' wo es in Deinem Programm weiter gehen soll - ich würde hier das 
' Classen Modul verlassen
End Sub