Since you are using SendCommand, you can only process lisp at the command line. I wrote the following function to use by passing a vba entity to lisp. At the point in the prompt where it asks for an selection, you need to use the (handent) function to get a lisp ename. In vba, use a selection method to obtain a SelectionSet of the desired table. Iterate the ss to get the table object and pass it to the following function.
Code:
Public Function Ent2lspEnt(entObj As AcadEntity) As String
'Designed to work with SendCommand, which can't pass objects.
'This gets an objects handle and converts it to a string
'of lisp commands that returns an entity name when run in SendCommand.
Dim entHandle As String
entHandle = entObj.Handle
Ent2lspEnt = "(handent " & Chr(34) & entHandle & Chr(34) & ")"
End Function