Running Autolisp command from VBA does not work!!

[leoroncetti]

I have a lisp routine to count blocks and it works just fine. I load it and type "countblock" or "(c:countblock)".

I want to run it in VBA (2010) but the code does not work. What am I missing?

Public Sub DrawToScreen2()
Dim strGRVECS As String
Dim objVL As Object
Dim objVLF As Object
Dim objVLO As Object
Dim varReturned As Variant
Set objVL = ThisDrawing.Application.GetInterfaceObject("VL.Application.16")
Set objVLF = objVL.ActiveDocument.Functions
Set objVLO = objVLF.Item("read").funcall("(C:BlockCount)")
varReturned = objVLF.Item("eval").funcall(objVLO)       '' *** this line returns an error (13) type mismatch....
End Sub