Program - Novice

[NickH]

Hi
In the Subroutine below, when I try to compile it I get
the following error message for RetVal.
"Expected Sub, Function, or Property"

Code

Sub Auto_Open()
RowPointer = 1
RetVal Shell(CmdLine, 4)
If RetVal = 0 Then
Beep: MsgBox ("Cannot Find CPS")
Exit Sub
End If
Application.Wait Now + 0.00001
AppActivate Application.Caption
GetSerialData
End Sub

Any help would be appreciated
Thanks

 

[Frank Kabel]

Hi
change the line
RetVal Shell(CmdLine, 4)

to
RetVal = Shell(CmdLine, 4)

 

[Guest]

Just need an equals sign

RetVal = Shell(CmdLine, 4)


ciao
KM

----- NickH wrote: -----

Hi
In the Subroutine below, when I try to compile it I get
the following error message for RetVal.
"Expected Sub, Function, or Property"

Code

Sub Auto_Open()
RowPointer = 1
RetVal Shell(CmdLine, 4)
If RetVal = 0 Then
Beep: MsgBox ("Cannot Find CPS")
Exit Sub
End If
Application.Wait Now + 0.00001
AppActivate Application.Caption
GetSerialData
End Sub

Any help would be appreciated
Thanks

 

[NickH]

Thankyou

Sub Compiled OK

 

[NickH]

Thankyou
Compiled ok

-----Original Message-----
Hi
change the line
RetVal Shell(CmdLine, 4)

to
RetVal = Shell(CmdLine, 4)


--
Regards
Frank Kabel
Frankfurt, Germany



.