Как открыть файл в двоичном виде

передать двоичный код файла в текстовое поле

без Ansi, чтобы мог открыть любой файл

а по нажатию кнопки записать (может через Put?) двоичный код в файл?

Private Sub Command1_Click ()
CALL SaveToFile ("10101011",C:\1.txt)
End sub

Private Sub SaveToFile(Data$, PathFile As String)
'Сохранение переменной в файл
   n = FreeFile
   Open PathFile For Binary As #n
   Put n, , Data$
   Close #n
End Sub

Function Bin1(ByVal ByteValue As Byte) As String
 Dim NextBit As Byte
 While ByteValue > 0
  NextBit = ByteValue Mod 2
  ByteValue = ByteValue - NextBit
  ByteValue = ByteValue \ 2
  Bin1 = LTrim$(NextBit) & Bin1
 Wend
End Function

Private Sub Form_Load()
MsgBox Bin1(&HF0)
End Sub

Function Dec1(BinNumber As String) As Byte
 Dim BitCounter As Integer, NextBit As Byte
 For BitCounter = Len(BinNumber) To 1 Step -1
  ec1 = Dec1 + Val(Mid$(BinNumber, BitCounter, 1)) * (2 ^ NextBit)
  NextBit = NextBit + 1
 Next BitCounter
End Function

Private Sub Form_Load()
MsgBox Hex$(Dec1(Bin1(&HF0)))
End Sub

Private Function DataToNum(Data, inHex As Boolean) As String
'Для Кодирование данных
If inHex = False Then
 For pos = 1 To Len(Data)
  DoEvents
  ataToNum = DataToNum & Format(Asc(Mid(Data, pos, 1)), "000"  
 Next pos
Else
 For pos = 1 To Len(Data)    
    'Проверяем на символ перехода на новую строку
    If Mid(Data, pos, 1) = Left(vbNewLine, 1) Then
    ataToNum = DataToNum & Hex$(13) & " " ': pos = pos + 1
    Else  
    ataToNum = DataToNum & Hex$(Asc(Mid(Data, pos, 1))) & " "
    End If
 Next pos
End If
ext:
If Right(DataToNum, 1) = " " Then DataToNum = Left(DataToNum, Len(DataToNum) - 1)
End Function

'=============================================================================
'Класс для кодирования/декодирования файлов в числа, по принципу ASCII таблицы
'Умеет кодировать и декодировать в ascii значения и hex значения
'Написано HACKER'ом в 2005 году
'=============================================================================

Public Sub EncodeFromFile_TO_File(sInputFile As String, sOutputFile As String, inHex As Boolean)
'Кодирование с файла в файл
 bTemp$ = LoadTextFile(sInputFile)
 bTemp$ = DataToNum(bTemp, inHex)
 SaveToFile bTemp$, sOutputFile
End Sub

Public Function EncodeFromFile(sInputFile As String, inHex As Boolean) As String
 'Кодирование с файла в переменную
 bTemp$ = LoadTextFile(sInputFile)
 bTemp$ = DataToNum(bTemp, inHex)
 EncodeFromFile = bTemp$
End Function
Public Function EncodeData(sData As String, inHex As Boolean) As String
 'Кодирование с переменной в переменную
   bTemp$ = DataToNum(sData, inHex)
 EncodeData = bTemp$
End Function

Public Function EncodeData_To_File(sData As String, sFIle As String, inHex As Boolean) As String
 'Кодирование с переменной в файл
   bTemp$ = DataToNum(sData, inHex)
   SaveToFile bTemp$, sFIle
End Function
Public Function DecodeData(sData As String, inHex As Boolean) As String
'Декодирование с переменной в переменную
  bTemp$ = NumToData(sData, inHex)
DecodeData = bTemp$
End Function

Public Sub DecodeFromFile_TO_File(sInputFile As String, sOutputFile As String, inHex As Boolean)
'Декодирование с файла в файл
 bTemp$ = LoadTextFile(sInputFile)
 bTemp$ = NumToData(bTemp$, inHex)
 SaveToFile bTemp$, sOutputFile
End Sub

Public Function DecodeFromFile(sInputFile As String, inHex As Boolean) As String
'Декодирование с файла в переменную
 bTemp$ = LoadTextFile(sInputFile)
 bTemp$ = NumToData(bTemp$, inHex)
 ecodeFromFile = bTemp$
End Function

Public Function DecodeData_TO_File(strData As String, strFile As String, inHex As Boolean) As String
'Декодирование переменной в файл
 bTemp$ = NumToData(strData, inHex)
SaveToFile bTemp$, strFile
End Function

Private Function DataToNum(Data, inHex As Boolean) As String
Form3.Show '!'
Form3.Label3 = "Идёт кодирование данных, пожалуйста подождите..." '!'

'Для Кодирование данных
If inHex = False Then
 For pos = 1 To Len(Data)
  DoEvents
  ataToNum = DataToNum & Format(Asc(Mid(Data, pos, 1)), "000"
  
'Высчитывание в процентном соотнешении ход работы и прорисовка прогресбара на форме
 DoEvents
  Form3.lblProgress = Int(100 * pos / Val(Len(Data))) '!'
  If Form3.Tag = "Stop" Then Form3.Tag = "": GoTo ext '!'
'-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
 Next pos
Else
 For pos = 1 To Len(Data)
     
    'Проверяем на символ перехода на новую строку
    If Mid(Data, pos, 1) = Left(vbNewLine, 1) Then
    ataToNum = DataToNum & Hex$(13) & " " ': pos = pos + 1
    Else
  
    ataToNum = DataToNum & Hex$(Asc(Mid(Data, pos, 1))) & " "
    End If

'Высчитывание в процентном соотнешении ход работы и прорисовка прогресбара на форме
DoEvents
Form3.lblProgress = Int(100 * pos / Val(Len(Data))) '!'
If Form3.Tag = "Stop" Then Form3.Tag = "": GoTo ext '!'
'-  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
 Next pos
End If
ext:
If Right(DataToNum, 1) = " " Then DataToNum = Left(DataToNum, Len(DataToNum) - 1)

Form3.Label3 = ""
Unload Form3
End Function

Private Function NumToData(StrNum As String, inHex As Boolean) As String
Form3.Show '!'
Form3.Label3 = "Идёт декодирование данных, пожалуйста подождите..." '!'


'Для декодирования данных
If inHex = False Then
StrNum = Replace(StrNum, vbNewLine, ""
 For pos = 1 To Len(StrNum) Step 3

 NumToData = NumToData & Chr(Mid(StrNum, pos, 3))

'Высчитывание в процентном соотнешении ход работы и прорисовка прогресбара на форме
DoEvents
Form3.lblProgress = Int(100 * pos / Val(Len(StrNum)))
If Form3.Tag = "Stop" Then Form3.Tag = "": GoTo ext '!'
 Next pos
Else


StrNum = Replace(StrNum, vbNewLine, ""

For pos = 1 To Len(StrNum)

s$ = s$ & Mid(StrNum, pos, 1)
 
If Len(s$) = 2 Or pos = Len(StrNum) Then
    If s$ <> " " Then
    s = Replace(s, " ", ""
    If Mid(StrNum, pos + 1, 1) <> " " Then pos = pos - 1
    pos = pos + 1
    NumToData = NumToData & Chr(Val("&H" & s$))
s$ = ""
    End If
s$ = ""
End If

'Высчитывание в процентном соотнешении ход работы и прорисовка прогресбара на форме
DoEvents
'Form3.lblProgress = Int(100 * pos / Val(Len(StrNum)))
If Form3.Tag = "Stop" Then Form3.Tag = "": GoTo ext '!'
nextPos:
 Next pos
End If
ext:
Form3.Label3 = "" '!'
Unload Form3 '!'
End Function

Private Function LoadTextFile(path As String) As String
'Загрузка файла в переменную
 Dim l As Long
 Dim s As String
 n = FreeFile
 Open path For Binary As #n
 l = LOF(n)
 s = String(l, vbNullChar)
 Get n, , s
 Close #n
 LoadTextFile = s
End Function

Private Sub SaveToFile(Data$, PathFile As String)
'Сохранение переменной в файл
   n = FreeFile
   Open PathFile For Binary As #n
   Put n, , Data$
   Close #n
End Sub
 
Private Function WordInString(strData As String, Word As String) As Boolean
'Проверка есть ли в строке слово
s$ = Replace(strData, Word, "ђWordђ"
If s$ = strData Then
WordInString = False
Else
WordInString = True
End If
End Function

    If Mid(Data, pos, 1) = Left(vbNewLine, 1) Then

If Mid(Data, pos, 1) = Left(vbNewLine, 1) Then

 im NextBit As Byte
 Bin1 = LTrim$(NextBit) & Bin1

передать двоичный код файла в текстовое поле(10011001)