Za spremanje koristim:
Private Sub spremi_Click()
Dim FNum As Integer
FNum = FreeFile
Open "C:\text.txt" For Append As FNum
Print #FNum, Text1
Close
End Sub
To RADI_______________________
Ovo neradi:
Private Sub ucitaj_Click()
Dim FNum As Integer
FNum = FreeFile
Open "C:\text.txt" For Append As FNum
Input #FNum, Text2
Close
End Sub
____________
Može help
Ivan