Текстовый редактор

Option Explicit
 
Private Sub bLoad_Click()
  Dim nf As Long
  Dim b() As Byte
 
  nf = FreeFile
  Open "test.txt" For Binary As nf
  ReDim b(LOF(nf))
  Get #nf, , b()
  txt.Text = b()
  Close #nf
End Sub
 
Private Sub bSave_Click()
  Dim nf As Long
  Dim b() As Byte
 
  nf = FreeFile
  Open "test.txt" For Binary As nf
  Close #nf
  Kill "test.txt"
  Open "test.txt" For Binary As nf
  b() = txt.Text
  Put #nf, , b()
  Close #nf
End Sub

' Сохранение файла на диск из переменной
Public Function SaveFile(FileName As String, Data As String, Optional out As Boolean = True) As Boolean
    On Error Resume Next
    
    Dim FileNo As Integer
    
    ' Инициализировать счётчик
    FileNo = FreeFile
    
    ' Очистить буфер ошибок
    Err.Clear
    
    ' Записать файл
    If out = True Then
        Open FileName For Output As FileNo
            Print #FileNo, Data;
        Close FileNo
    Else
        Open FileName For Append As FileNo
            Print #FileNo, Data;
        Close FileNo
    End If
    
    If Err.Number > 0 Then
        Err.Clear
        SaveFile = False
        Exit Function
    End If
    SaveFile = True
End Function

Open FileName For Output As FileNo
            Print #FileNo, Data;
        Close FileNo

Open FileName For Output As №1
            Print #F1, Text1.Text;
        Close №1

' Сохранение файла на диск из массива
Public Function SaveFileFromArray(FileName As String, ByRef sArr() As String, Optional out As Boolean = True) As Boolean
    On Error Resume Next
    
    Dim FileNo As Integer
    Dim i As Long
    
    ' Инициализировать счётчик
    FileNo = FreeFile
    
    ' Очистить буфер ошибок
    Err.Clear
    
    ' Записать файл
    If out = True Then
        Open FileName For Output As FileNo
    Else
        Open FileName For Append As FileNo
    End If
    
    For i = 0 To UBound(sArr)
        If i <> UBound(sArr) Then
            Print #FileNo, sArr(i)
        Else
            Print #FileNo, sArr(i);
        End If
    Next
    
    Close FileNo
    
    If Err.Number > 0 Then
        Err.Clear
        SaveFileFromArray = False
        Exit Function
    End If
    
    SaveFileFromArray = True
End Function

For Output

Open "test.txt" For Output As nf
            Print #nf, "";
        Close nf