Sorry I'll make this real simple
Sub WhatCell()
Dim oTable As AcadTable
Dim P1
Dim V(2) As Double
Dim R As Long, C As Long
V(2) = 1
ThisDrawing.Utility.GetEntity oTable, P1, "Pick"
oTable.SelectSubRegion P1, P1, V, V, 1 _
, True, R, R, C, C
Debug.Print R, C
Debug.Print oTable.GetText(R, C)
End Sub