VB reads and writes TXT files

Private sub commandateclick () 'read the file
Open "D: a.txt" for input as #1
Dim lines as string
Dim nextline as string
Dim I as integer

Do while not EOF (1)
On Error resume next
Line input #1, nextline
Lines = Lines & nextline & CHR (13) & CHR (10)
Loop

Close #1
Text1.text = lines
End sub

Private sub command2_click () 'Write a file
Open "D: a.txt" for output as #1
Print #1, text1.text
Close #1
End sub

'If you want to process a.txt of the program directory, you should write it like this:
'Open app. Path + "/a.txt" for input as #1