[VB6] - Da ListView a txt - allego codice vb

[cla80]

Esportare in file di testo considerando le tabulazioni:

Come migliorare l'esportazione in txt che attualmente viene non ben tabulato??:

Dim i As Integer
Dim list As ListItem
Open txtReport.Text For Output As #1 
For i = 0 To LstTabLog.ListItems.Count - 1
    Print #1, LstTabLog.ListItems.Item(i).Text & "---" & LstTabLog.ListItems(i).SubItems(1) & "---" & LstTabLog.ListItems(i).SubItems(2) & "---" & LstTabLog.ListItems(i).SubItems(3) & "---" & LstTabLog.ListItems(i).SubItems(4) & "---" & LstTabLog.ListItems(i).SubItems(5) & "---" & LstTabLog.ListItems(i).SubItems(6) & "---" & LstTabLog.ListItems(i).SubItems(7) & "---" & LstTabLog.ListItems(i).SubItems(8) & "---" & LstTabLog.ListItems(i).SubItems(9) & "---" & LstTabLog.ListItems(i).SubItems(10)
  Next i
  Call Shell("notepad.exe" & " " & txtReport.Text, vbMaximizedFocus)
Close #1
End Sub