Italian come salvare su documento di testo l'interno di una listview

Sub btnSalva_Click
   writer.Initialize(File.OpenOutput(File.DirRootExternal, "geripiz.rtf", True))
   writer.Initialize(File.OpenOutput(File.DirRootExternal, "geripiz.txt", True))
   writer.WriteLine("****************************************" & CRLF)

   writer.WriteLine("DATA: " & DateTime.Date(now) & " ORE: " & DateTime.Time(now) & CRLF )
   writer.WriteLine("OPERATORE: " & txtOperatore.Text   & CRLF)
   writer.WriteLine("ORDINE N°: " & txtOrdineN.Text   & CRLF)
   writer.WriteLine("OGGETTO°:  " & txtoggetto.Text & CRLF)
   writer.WriteLine("NOME°:  " & txtPersone.Text & CRLF)
   
   writer.WriteLine("****************************************" & CRLF)
   
   writer.Close
   Msgbox ("SALVATAGGIO ESEGUITO CORRETTAMENTE DENTRO LA MEMORIA DEL TELEFONO CON NOME: GERIPIZ.TXT ED UN'ALTRO APRIBILE DA PC CON WORDPAD, CON NOME: GERIPIZ.rtf","AVVISO")
End Sub

Sub btnSalva_Click
    writer.Initialize(File.OpenOutput(File.DirRootExternal, "geripiz.rtf", True))
    writer.Initialize(File.OpenOutput(File.DirRootExternal, "geripiz.txt", True))
    writer.WriteLine("****************************************" & CRLF)

    writer.WriteLine("DATA: " & DateTime.Date(now) & " ORE: " & DateTime.Time(now) & CRLF )
    writer.WriteLine("OPERATORE: " & txtOperatore.Text   & CRLF)
    writer.WriteLine("ORDINE N: " & txtOrdineN.Text   & CRLF)
    writer.WriteLine("OGGETTO:  " & txtoggetto.Text & CRLF)
    writer.WriteLine("NOME:  " & txtPersone.Text & CRLF)
    
    writer.WriteLine("****************************************" & CRLF)
 
   For i = 0 To ListView1.Size -1
       writer.WriteLine(ListView1.GetItem(i) & CRLF)
   Next

    writer.Close
    Msgbox ("SALVATAGGIO ESEGUITO CORRETTAMENTE DENTRO LA MEMORIA DEL TELEFONO CON NOME: GERIPIZ.TXT ED UN'ALTRO APRIBILE DA PC CON WORDPAD, CON NOME: GERIPIZ.rtf","AVVISO")
End Sub