Read from a file to list box:

Dim variable1 As String
Open "d:\a.txt" For Input As #1
While Not EOF(1)
Input #1, variable1
List1.AddItem (variable1)
Wend
Close #1


Writing to a file:   (IT will DELETE whole file and write)

Private Sub Command2_Click()
Dim s  As String
Open "d:\file.txt" For Output As #1
s = Text1.Text
Print #1, s
Close #1
End Sub

APPEND TO A FILE:

Dim s  As String
Open "d:\file.txt" For Append As #1
s = Text1.Text
Print #1, s
Close #1