Outlook VisualBasic Script

Sub delete()
    Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks) _
        .Folders("Personal Tasks").Delete
End Sub