How To Get VBEVAL Result?

[ueberyak]

I have the following VB/VBEVAL code and all I want to do is get the result back from VB! I keep reading here and there in the forums that this can be done, but I am struggling. I just want to evaluate the result outside of VB.

Code: Select all

  function RunSAP
  vbstart
  
  on error resume next
  
  If Not IsObject(application) Then
     Set SapGuiAuto  = GetObject("SAPGUI")
     Set application = SapGuiAuto.GetScriptingEngine
  End If
  If Not IsObject(connection) Then
     Set connection = application.Children(0)
  End If
  If Not IsObject(session) Then
     Set session = connection.Children(0)
  End If
  session.findById("wnd[0]").maximize
  session.createSession
  VBEND
  vbeval>RunSAP,result
  
  mdl>%result%

[ueberyak]

Got it!

Code: Select all

  function RunSAP(),result
  vbstart
  
  on error resume next
  
  If Not IsObject(application) Then
     Set SapGuiAuto  = GetObject("SAPGUI")
     Set application = SapGuiAuto.GetScriptingEngine
  End If
  If Not IsObject(connection) Then
     Set connection = application.Children(0)
  End If
  If Not IsObject(session) Then
     Set session = connection.Children(0)
  End If
  session.findById("wnd[0]").maximize
  session.createSession
  
  RunSAP=Err.number
  VBEND
  vbeval>RunSAP,result

mdl>Result: %result%