Try this.

Dim olApp As Outlook.Application
Dim olTask As Outlook.TaskItem
Dim fld As Outlook.Folders

Set olApp = New Outlook.Application
Set olTask = olApp.CreateObject(oltaskitem)
Set fld = olApp.CreateObject(Folders)


With olTask
.Subject = "Task1"
.StartDate = " "
End With

With fld
.Add olTask
End With

Set olApp = Nothing
Set olTask = Nothing
Set fld = Nothing

Regards,
Gajendra