Schedule job cannot end

I created a job to run the following vbscript. I can see the message "Exit1" and the script completed. However, I still can see the job is running in the job monitoring screen. This cause the subsequent jobs can not be started. Do you have any ideas why?

Option Explicit
Dim app

Call dowork

'shut down the app
If not (app Is Nothing) Then
app.Quit
'Set app = Nothing
MsgBox "Exit1"
WScript.Quit
End If

Sub dowork()
On Error Resume Next
'----
' Start up Enterprise Guide using the project name
'----
Dim prjName
Dim prjObject

prjName = "C:\project.egp" 'Project Name

Set app = CreateObject("SASEGObjectModel.Application.4.2")
app.SetActiveProfile("CCR")
MsgBox "1"
If Checkerror("CreateObject") = True Then
Exit Sub
End If

'-----
' open the project
'-----
Set prjObject = app.Open(prjName,"")
MsgBox "2"
If Checkerror("app.Open") = True Then
Exit Sub
End If

'-----
' run the project
'-----
MsgBox "3"
prjObject.run
MsgBox "4"
If Checkerror("Project.run") = True Then
Exit Sub
End If

'-----
' Save the new project
'-----
MsgBox "5"
prjObject.Save
MsgBox "6"
If Checkerror("Project.Save") = True Then
Exit Sub
End If

'-----
' Close the project
'-----
MsgBox "7"
prjObject.Close
MsgBox "8"
If Checkerror("Project.Close") = True Then
Exit Sub
End If
Set prjObject = Nothing
End Sub

Function Checkerror(fnName)
Checkerror = False

Dim strmsg
Dim errNum

If Err.Number <> 0 Then
strmsg = "Error #" & Hex(Err.Number) & vbCrLf & "In Function " & fnName & vbCrLf & Err.Description
MsgBox strmsg 'Uncomment this line if you want to be notified via MessageBox of Errors in the script.
Checkerror = True
End If

End Function

It looks like one of the objects you created is not getting destroyed, locking resources and holding the entire job in the running state

For example

	Code:
	'----- ' Save the new project '----- MsgBox "5" prjObject.Save MsgBox "6" If Checkerror("Project.Save") = True Then Exit Sub End If

the code above checks for an error Checkerror("Project.Save") = True and exits leaving prjObject running. Please try adding Set prjObject = Nothing to the Checkerror function.