Conectar VBA com SAP

Algum expert pode me ajudar, estou tentando rodar um script para automatizar uma extração de dados do SAP via macro, mas logo no inicio do codigo dá um erro, aparentemente algum problema para o vba conectar com o sap.

Erro tempo de execução Erro de automação Sintaxe invalida.

Option Explicit

Sub Macro()

Dim Application, SapGuiAuto, Connection, session, WScript

If Not IsObject(Application) Then
   Set SapGuiAuto = GetObject("SAPGUI") 'erro nessa linha
   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
If IsObject(WScript) Then
   WScript.ConnectObject session, "on"
   WScript.ConnectObject Application, "on"