Strip off the last two characters when assigning the Text property to a string:
Sub strip()
Dim strCellText As String
strCellText = ActiveDocument.Tables(3).Rows(2).Cells(1).Range.Text
Debug.Print strCellText
strCellText = Left(strCellText, Len(strCellText) - 2)
Debug.Print strCellText
End Sub