'Listing 28.4 28LIST04.TXT -- Tworzenie pliku tekstowego WRITE.TXT

Private Sub Command1_Click()
  CNumber = FreeFile
  Open "Write.Txt" For Output As #Cnumber

  For X = 1 To 5 
     Write #Cnumber, X;
  Next X

  Close #Cnumber

End Sub
