Параметр соединителя экспорта VBA, чтобы превзойти

Question

Я хочу экспортировать связанную форму фигуры соединителя в Excel.

функция экспорта пока работает, но экспортированный контент не чистый.

Я понял, проблемаЯ экспортирую ячейку, но не могу изменить ее на строку.

До сих пор я пробовал несколько функций, таких как .Fomula и .ResultStr ("").Также не работали преобразования типа Str (...).

  Dim shpsObj As Visio.Shapes, shpObj As Visio.Shape

  For Each PagObj In ActiveDocument.Pages   
  For Each shpObj In PagObj.Shapes
        x=x+1
        XlSheet.Cells(x, 2) = shpObj.CellsU("Prop.To").FormulaU
  NEXT
  NEXT

atm содержимое содержит чистый текст, разрывы строк, странный obj char (obj) и некоторые "

, спасибо взаранее