Automation error 'Specified module could not be found"

[Suresh02]

Hi

This code is working for other users...but recently i had a laptop swapout and had all my applications reloaded including MicroFocus Extra! X-Treme 9.4

When i run this code and it gets to the highlighted line - Set CarinaSystem = CreateObject("Extra.System") the program aborts and returns the error message " Automation error - Specified Module could not be found"

Sub OpenSession()
On Error GoTo OpenSession_Err
Dim TestSystemWarning As Integer

LogHandler.CreateSystemLog
HostWaitTime = 1000

[highlight #FCE94F]Set CarinaSystem = CreateObject("EXTRA.System")[/highlight]
If CarinaSystem.Sessions.Count = 0 Then

Set mySession = GetObject("C:\Users\Public\Documents\Micro Focus\EXTRA!\sessions\carina.edp")
Set MyCARINA = mySession.Screen

I checked the Attachmate directory and found that extra.tlb file is there.

Any suggestions would be greatly appreciated