Dim sStart As String = Me.UltraDateTimeEditor1.Value & " " & Me.ComboBox1.Text
            Dim sEnde As String = Me.UltraDateTimeEditor2.Value & " " & _
              Me.ComboBox2.Text
            Dim ooutlook As New Outlook.Application
            Dim termin As Outlook.AppointmentItem
            termin = ooutlook.CreateItem(Outlook.OlItemType.olAppointmentItem)
            termin.Body = Me.TextBox2.Text
            termin.Subject = Me.TextBox1.Text
            termin.Start = sStart
            termin.End = sEnde
            termin.Save()

Frank