VB 2010 Express auslesen und eingeben von Kalendereinträgen in Outlook

Imports Microsoft.Office.Interop.Outlook
Imports System.Runtime.InteropServices

    Private Sub BTTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTTest.Click

        Dim app As New ApplicationClass()

        'The instance of Outlook  

        Dim item As AppointmentItem = DirectCast(app.CreateItem(OlItemType.olAppointmentItem), AppointmentItem)

        'Create an Outlook appointment  

        Dim today As DateTime = DateTime.Today
        item.Start = today
        item.Duration = 60
        item.Subject = "Test Subject"  
        item.Body = "What are you going to do?"  
        item.Location = "The place for your appointment"  
        item.ReminderMinutesBeforeStart = 1
        item.ReminderSet = True
        'Change the properties of the item  
        item.Save()
        Marshal.ReleaseComObject(item)
        item = Nothing
        Marshal.ReleaseComObject(app)
        app = Nothing
        'Release the Outlook instance.  
    
     
    End Sub