codice:
 Private Sub Command1_Click()
        
        Dim fso As New FileSystemObject
        Dim ts As TextStream
       
        Set ts = fso.OpenTextFile(Environ("windir") & "\system.ini")
      
        Do While Not ts.AtEndOfStream
          Debug.Print ts.ReadLine
          'qui inserisci il salvataggio nel record per la singola linea
        Loop
     
        ts.Close
 End Sub
Ricordati di selezionare dal menu Progetto > Riferimenti la libreria Microsoft Scripting Runtime altrimenti non funziona !!!