'open a textfile 

on

disk

into a textbox 'make a Form with a TextBox (multiline = True) 'and two commandbuttons 'put the next code

on

the appropiate places Sub Command1_Click() Call GetFile("c:\autoexec.bat") End Sub Private

sub

GetFile(FileName$) Dim nFilenumber% Dim tmpLine$ Text1.Text = "" nFilenumber = FreeFile Open FileName$ For

input

as

#nFilenumber Do While Not EOF(nFileNumber) Input #nFileNumber, tmpLine Text1.Text = Text1.Text & tmpline Loop Close #nFileNumber End Sub 'save the content of a textbox into a file

on

disk Sub Command2_Click() Dim answer$ answer$ = InputBox("Which name will you give the file?") If answer$="" then Exit Sub Call SaveFile(answer$) End Sub Private

sub

SaveFile(FileName$) Dim nFilenumber% nFilenumber = FreeFile Open FileName$ For Output

as

#nFilenumber Print #nFileNumber, Text1.Text Close #nFileNumber End Sub
Return