Dim Service As Object

        Service = CreateObject("Schedule.Service")
        Call Service.Connect()

        Dim rootFolder
        rootFolder = Service.GetFolder("\")

        Dim taskCollection

        taskCollection = rootFolder.GetTasks(0)