Hænger i koden

Jeg har en function i vbscript som hænger en gang i mellem.
Koden er udført men går ikke videre.

Går i stå her:
myobj.addons("SaveAsWeb").Run myarg

Findes der en kommando - så man går videre med det samme parametrene er givet til visio?

function msoVisio( fpath , cpath )
   
    Dim myobj
    Dim mydoc
    Dim mypge
    Dim myarg

    'myarg = "/quiet=True /target=" + cpath
    myarg = "/quiet=True /silent=True /prop=False /target=" + cpath 
   
    Set myobj = Server.CreateObject("Visio.Application")
   
    myobj.visible = true
   
    Set mydoc = myobj.documents.open( fpath )
    Set mypge = myobj.activedocument
   
    'on error resume next
    myobj.addons("SaveAsWeb").Run myarg
    'error goto 0
   
    mypge.close
    myobj.Quit
   
    Set mypge = Nothing
    Set mydoc = Nothing
    Set myobj = Nothing
   
end function