Ciao cablos,
posto un esempio di codice che fa uso di Write al posto di Print, dovrai adattarlo alle tue esigenze. Nell'esempio si presume che la LV sia composta da 3 Colonne: Cognome; Nome e Sesso in modalità Report.
Dopo aver caricato la LV :
codice:
Dim FileName As String
    Dim FileNum As Integer
    Dim L As ListItem

'Inserisce i dati della LV in un file di testo:
' Percorso e Nome del File:
    FileName = App.Path & "\TuoNomeFile.txt"
    FileNum = FreeFile()
    
    Open FileName For Output As #FileNum
        ' Scrive nel file il Cognome:
        For i = 1 To LvSearch.ListItems.Count
            Write #FileNum, LvSearch.ListItems(i);
        Next i
            ' Scrive nel file il Nome;
            For i = 1 To LvSearch.ListItems.Count
                Set L = LvSearch.ListItems(i)
                Write #FileNum, L.ListSubItems(1);
            Next i
                ' Scrive nel file il Sesso;
                For i = 1 To LvSearch.ListItems.Count
                    Set L = LvSearch.ListItems(i)
                    Write #FileNum, L.ListSubItems(2);
                Next i
    Close #FileNum
In questo modo il file txt avrà come separatore di ciascun componente " " e la , ed il Nome Cognome e Sesso occuperanno ciascuno una riga.
Se vuoi potrsti anche unire i due ultimi cicli:
For i = 1 To LvSearch.ListItems.Count
Set L = LvSearch.ListItems(i)
Write #FileNum, L.ListSubItems(1);
Write #FileNum, L.ListSubItems(2);
Next i
In questo caso le righe sarebbero due: Il Cognome e poi Nome e Sesso uno dopo l'altro.
Come organizzare il file ci devi pensare te.
Naturalmente per aprire il file scritto con Write #FileNum dovrai usare Input #FileNum,