Private Sub einfuegen()
        Dim oOutlook As Microsoft.Office.Interop.Outlook.Application = New _
          Microsoft.Office.Interop.Outlook.Application
        Dim NS As Microsoft.Office.Interop.Outlook.NameSpace = _
        oOutlook.GetNamespace("MAPI")
        Dim oCal As Microsoft.Office.Interop.Outlook.MAPIFolder = _
        NS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
        Dim olCalendarItems = oCal.Items
 
        Dim oEintrag = olCalendarItems.Add
        oEintrag.start = DateAndTime.Now
        oEintrag.subject = "Mal sehen"
        oEintrag.categories = "Testkategorie"
        oEintrag.save()
 
    End Sub

oEintrag.xxx = Wert