Dim objTable As IHTMLTable
Dim objRow As IHTMLTableRow
Dim objCell As IHTMLTableCell
Dim elementCell As IHTMLElement
Set objTable = ActiveDocument.all.tags("table").Item(0)
Set objRow = objTable.rows(0)
Set objCell = objTable.cells(0)
Set elementCell= objCell;
MessageBox.Show(elementCell.innerText)