This seems to work great:
(Dont forget to add your COM reference to the Microsoft Outlook Object)
Dim myOl As New Outlook.Application
Dim myTask As Outlook.TaskItem
myTask = myOl.CreateItem(Outlook.OlItemType.olTaskItem)
myTask.Subject = "Look at me"
myTask.Body = "Yeah, yeah, look at me!"
myTask.Save()
myTask = Nothing
myOl = Nothing
