Импорт - Экспорт спецсимволов из excel - VB

Формулировка задачи:

Добрый день! Помогите решить задачу:
Необходимо экспортировать с листа excel, (ячейка A1) содержимое всей строки со спец символами
в txt файл так, чтобы можно было импортировать всю строку обратно в книгу без потерь.
Возможно надо экспортировать не в txt, а во что то другое, если без расширения еще и лучше.
Есть вариант (в примере) все работает - но только с простыми символами.
Может быть мкарос подправить, я вних не очень силен.

Решение задачи: «Импорт - Экспорт спецсимволов из excel»

textual
                            Листинг программы 
                        

                            Sub Export()
Dim b() As Byte, P As String
  P = ThisWorkbook.Path & "\Test.txt"
  If Dir(P) <> "" Then Kill P 'если файл существует, удалить его
  b = CStr(Range("A1").Value)
  Open P For Binary As #1
  Put 1, , b
  Close #1
  MsgBox "Файл создан!" & vbLf & P, 64, "Color Mix Map"
End Sub

Sub Import()
'Копирование из текстового файла в эксель
  Open ThisWorkbook.Path & "\Test.txt" For Binary Access Read As #1
  ReDim b(1 To LOF(1)) As Byte
  Get 1, , b
  Close #1
  Range("A2").Value = CStr(b)
End Sub

                        