Outlook VisualBasic Script

Sub task()
    Dim myTask As TaskItem
    Set myTask = Application.CreateItem(ItemType:=olTaskItem)
End Sub