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