It happens that shai formulated :
Hello,

Error is :
Run-Time Error-'2147221020(800401e4)'
Automation error
Invalid syntax


code is:
Sub mfit1()

Dim RIBMApp As Object

Set RIBMApp = GetObject("RIBM")

RIBMApp.TransmitTerminalKey rcIBMF3Key
RIBMApp.Wait 3
RIBMApp.TransmitTerminalKey rcIBMF3Key
RIBMApp.Wait 3
RIBMApp.TransmitTerminalKey rcIBMF3Key
RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1
RIBMApp.WaitForEvent rcEnterPos, "30", "0", 4, 41
RIBMApp.WaitForDisplayString "code:", "30", 4, 34
RIBMApp.TransmitANSI "mjim"
RIBMApp.TransmitTerminalKey rcIBMEnterKey
RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1
RIBMApp.WaitForEvent rcEnterPos, "30", "0", 7, 35
End Sub

Error is in : Set RIBMApp = GetObject("RIBM")

Pls suggest ASAP

GetObject will return a valid ref IF the object exists. You should
check for this and if it doesn't exist then use CreateObject() to start
an instance of it.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion