Parsing fra ASP til VB

Jeg får følgende fejl:

Type mismatch: 'GetObjectAttributeByID'

Jeg ved ikke hvad jeg skal gøre, jeg er kommet så langt at jeg ved felen ligger i at jeg "sender" Array(i) afsted, og det er denne der giver fejlen.

Hvad gør jeg ?


ASP kode:
OrderString = Session("list").Display
Array = split(Session("list").Display,",")
   
set mAttribute = Server.CreateObject("Docmarket.clsDrawHTML")
   
For i=0 to Session("List").Size
           
htmlstring = htmlstring & mAttribute.GetObjectAttributeByID (mSession.getSession, Array(i), "title")
htmlstring = htmlstring &" ("
htmlstring = htmlstring & Cstr(mAttribute.GetObjectAttributeByID (mSession.getSession, Array(i), "object_name"))
htmlstring = htmlstring & ")" & vbCrLf
       
Next

VB kode:

Public Function GetObjectAttributeByID(mSession As IDfSession, mObjectID As String, mAttributeName As String) As String
'On Error Resume Next
   
Dim mClientX As New DfClientX
Dim mPersistent As IDfPersistentObject
Dim mSys As IDfSysObject
   
mSession.lock 2000
Set mPersistent = mSession.GetObject(mClientX.getId(mObjectID))
Set mSys = mPersistent
   
If mPersistent Is Nothing Then
    GetObjectAttributeByID = ""
Else
    GetObjectAttributeByID = mPersistent.getString(mAttributeName)
End If
mSession.unlock
End Function