Visual Basic Instinct : How do I add appointments to Schedule 32?

How do I add appointments to Schedule 32?

Here's how to add an appointment to 32 bit Schedule+


Dim objSchdPlus, objAppt As Object
   Dim StartDateTime As Variant, EndTime As Variant
   Set objSchdPlus = CreateObject(""SchedulePlus.Application"")
   objSchdPlus.Logon
   objSchdPlus.ScheduleSelected.Activate
   Set objAppt = objSchdPlus.ScheduleSelected.SingleAppointments.New
   StartDateTime = Form1.Text2 & "" "" & Form1.Text3
   EndTime = Form1.Text2 & "" "" & Form1.Text4
   objAppt.SetProperties Text:=Form1.Text1, Start:=StartDateTime, End:=EndTime
   objSchdPlus.Logoff
End Sub

Where Text1 = Name, Text 2 = Date, Text 3 = Start Time (HH:MM AM/PM) and Text 4 = End Time (HH:MM AM/PM)