Code Error 800A0400 - Expected statement

[Mindrage]

Hi All,

Please could some one help me with the below error.

I am running the below code and show a error msg as -

Script - C\:temp\f32'spc-lista.vbs
Line:7
Char:1
Error: Expected statement
Code: 800A0400
Source: Microsoft VBScript complication error

below is a part of the script-

'wypelnia f-32 w SPC

Call F32SPC


Sub F32SPC

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
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If