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