function addtasks(filename, mytable) {

    // Create MS Project connection and open the file
    var MS = guixt.CreateObject("MSProject.Application");
    MS.Application.FileOpenEx(filename);

    // Normally, the GUI is not shown, but can visible
    // e.g. for testing purposes

    // MS.Visible = true;

    var proj = MS.ActiveProject;

    // Convert GuiXT table to JavaScript object
    var myobj = JSON.parse(guixt.Get(mytable));

    // For each row in the table do... 
    for (var i = 0; i < myobj.length; i++) {

        // We can easily access the data in each column
        var task = proj.Tasks.add(myobj[i].tasktext);
        task.Start = myobj[i].taskstart;
        task.Finish = myobj[i].taskend;

    }
    MS.FileSave();
    MS.FileCloseAll();
}

''' <summary>
''' Add a list of tasks to an existing MS Project file
''' </summary>
''' <param name="filename">Path to MS project file</param>
''' <param name="tasktable">Name of GuiXT table variable</param>
''' <returns>empty string if success, errortext otherwise</returns>
Public Function addtasks(filename As String, 
                         tasktable As String) As String

    Dim returnText As String = ""

    Try
        'Create the Application object to interact with MS project
        Dim projectApplication As Microsoft.Office.Interop.MSProject.Application =
        New Microsoft.Office.Interop.MSProject.Application()

        Dim mv As Object = System.Reflection.Missing.Value

        ' Open the MS project file
        projectApplication.FileOpenEx(filename, mv, mv,
                                      mv, mv, mv, mv,
                                      mv, mv, mv, mv,
               Microsoft.Office.Interop.MSProject.PjPoolOpen.pjPoolReadWrite,
                                      mv, mv,
                                      mv, mv, mv)

        ' Get the active project in the file
        Dim project As Microsoft.Office.Interop.MSProject.Project =
            projectApplication.ActiveProject

        ' When createTable is used in GuiXT to fill a table, 
        ' the data is available in JSON format 
        ' We just convert it to an object (array) here
        Dim JSONString = myguixt.GetVariable(tasktable)
        Dim tasks As Object = _ 
             New JavaScriptSerializer().Deserialize(Of Object)(JSONString)

        ' Now we can easily loop through all rows
        For Each t In tasks

            ' Create And add New task
            Dim newTask As Microsoft.Office.Interop.MSProject.Task
            newTask = project.Tasks.Add()

            ' Access the data in column "tasktext" in the current row
            newTask.Name = t("tasktext")

            ' Get the data (string format) and convert to data
            If t("taskstart") <> "" Then
                Dim startDate As New Date
                Date.TryParse(t("taskstart"), startDate)
                newTask.Start = startDate
            End If

            If t("taskend") <> "" Then
                Dim endDate As New Date
                Date.TryParse(t("taskend"), endDate)

                ' We need to add 1 day....
                endDate = endDate.AddDays(1)
                newTask.Finish = endDate

            End If

        Next

        ' Close the file and automatically save
        projectApplication.FileCloseAll(
            Microsoft.Office.Interop.MSProject.PjSaveType.pjSave)

    Catch ex As Exception
        ' Something went wrong: Return the message to GuiXT
        ' so it can be shown on the SAP transaction
        '
        ' e.g. file was not found
        returnText = ex.Message
    End Try

    Return returnText


End Function