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

if len(dir$("test.txt")) Then Kill "test.txt"

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

Dim fn As Integer
    
    fn = FreeFile
    
    Open "G:\Downloads\test.txt" For Output As #fn
        Print #fn, "";
    Close #fn

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

Private Sub cmdLoad_Click()
    Dim Data, MultiData As String
    
    If Len(Dir$("test.txt")) Then
        Open "test.txt" For Input As #1
            Do Until EOF(1)
                Line Input #1, Data
                MultiData = MultiData & Data & IIf(EOF(1), "", vbCrLf)
            Loop
        Close #1
    End If
    
    Text1.Text = MultiData
End Sub
 
Private Sub cmdSave_Click()
    Open "test.txt" For Output As #1
        Print #1, Text1.Text;
    Close #1
End Sub

ReDim b(LOF(nf) - 1)

Private Sub cmdLoad_Click()
    Dim Data As String
    
    Open "test.txt" For Binary As #1
        Data = Space$(LOF(1))
        Get #1, , Data
    Close #1
    
    Text1.Text = Data
End Sub
 
Private Sub cmdSave_Click()
    Open "test.txt" For Output As #1
        Print #1, Text1.Text;
    Close #1
End Sub