[RESOLVED] runtime error 429

I am recieving a error on running

active X component cannot create object

VB Code:

Private Sub Form_Load()
 
    Dim oShell As IWshShell_Class[B]
    [COLOR=Sienna]Set oShell = New IWshShell_Class[/COLOR][/B]
   
    oShell.RegWrite "HKLM\Software\OTN\InstallLocation", App.Path, "REG_SZ"
 
   Set oShell = Nothing
    Shell App.Path & "\IWKSoft.exe", vbNormalFocus
    End
End Sub

Error occurs at the line indicated on debuging

only occurs on some compters under windows 98, but not others

I have reinstalled stdole2.tlb and wshom.ocx
when trying run regsvr32 \windows\system\STDOLE2.TLB I get a message stating

stdole2.tlb was loaded, but the dllRegisterService entry point was not found
stdole2.tlb does not appear to be a dll or ocx file

any idea of why?

I'm not familiar with IWshShell_Class but a class isn't an object so just try

Dim oShell As New IWshShell_Class

FINALLY found the answer. Scripting runtime files were missing from the computer. Microsoft has a distribuatable application that installs all the needed files, installed them and everythying worked fine.