Listato 1 Il listato dell'applicazione in grado di eseguire delle operazioni di caricamento e salvataggio dei dati su un file di testo.
Private Sub btnCarica_Click()
  Dim Riga As String
  Dim NomeFile As String
  
  txtTesto.Text = ""
  NomeFile = txtNomeFile.Text
  Open NomeFile For Input As #1
  Do Until EOF(1)
    Line Input #1, Riga
    txtTesto.Text = txtTesto.Text & Riga & Chr$(13) & Chr$(10)
  Loop
  Close #1
End Sub

Private Sub btnCancella_Click()
  txtTesto.Text = ""
End Sub

Private Sub btnSalva_Click()
  Dim NomeFile As String

  NomeFile = txtNomeFile.Text
  Open NomeFile For Output As #1
  Print #1, txtTesto.Text
  Close #1
End Sub