Тип переменных при записи в Excel (в каждой ячейке екселя еще появляется два квадратика )

Sub DocToXml()
  Dim objWord As Word.Application
  Dim objDoc As Word.Document
  Dim objExcel As Object
  Dim I As Integer
  Dim ID1 As String
  Dim ID2 As String
  Dim ID3 As String
  Dim ID8 As String
  Set objDoc = ThisDocument
  Set objExcel = CreateObject('Excel.Application')
  objExcel.Workbooks.Open FileName:='C:
eplika
ep.xls'
  objExcel.Visible = True
  With ThisDocument.Tables(1)
    For I = 3 To ThisDocument.Tables(1).Rows.Count
        objExcel.ActiveWorkbook.Worksheets('z1').Range('A' & I) = I
          
        ID1 = ThisDocument.Tables(1).Cell(I, 1).Range.Text
        ID2 = ThisDocument.Tables(1).Cell(I, 2).Range.Text
        ID3 = ThisDocument.Tables(1).Cell(I, 3).Range.Text
        ID8 = ThisDocument.Tables(1).Cell(I, 8).Range.Text
        
        objExcel.ActiveWorkbook.Worksheets('z1').Range('B' & I) = ID1
        objExcel.ActiveWorkbook.Worksheets('z1').Range('C' & I) = ID2
        objExcel.ActiveWorkbook.Worksheets('z1').Range('D' & I) = ID3
        objExcel.ActiveWorkbook.Worksheets('z1').Range('E' & I) = ID8
    Next I
  End With
End Sub