Query regarding openstaad and VBA

I have made a vb program (listed below), it runs well inside object browser, but when i run it from usertools (i.e assigning it to the usertools) it shows error.

error: 10092 Activex automation, cannot create object.

code:

Sub Main()
Dim oStd As Object
Set oStd = GetObject(,"StaadPro.OpenSTAAD")
Dim stdFile As String
oStd.GetSTAADFile(stdFile,"TRUE")
If stdFile = "" Then
MsgBox "This macro can only be run with a valid STAAD file loaded.", vbOkOnly
Else
stdFile = Left (stdFile, Len (stdFile)-4) & ".ANL"
Dim Myexcel As New Excel.Application
Myexcel.Workbooks.OpenText(Filename:=stdFile, StartRow:=1, DataType:=Excel.XlTextParsingType.xlDelimited, TextQualifier:=Excel.XlTextQualifier.xlTextQualifierNone, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False, Space:=True, Other:=False)
Myexcel.ActiveSheet.Name = "Sheet1"
Myexcel.Visible = True
End If
Set oStd = Nothing
End Sub