Public Sub Create_Appointment()
'Refer Microsoft Outlook 10.0 Object Library

Set myOlApp = New Outlook.Application
Set myappitem = myOlApp.CreateItem(olAppointmentItem)
myappitem.Subject = "Sample"
myappitem.Body = "Some text in the body"
myappitem.Start = Date + 20
myappitem.End = DateAdd("h", 2, myappitem.Start)
myappitem.Display (True) 'Show the newly created appointment item as Modal (True)
myappitem.Save ' this statment will save the appointment in your system.
End Sub