Dim sw As StreamWriter
sw = File.CreateText(My.Application.Info.DirectoryPath & "\prova.Txt")

 For i As Integer = 0 To SchedinePSColl.Count - 1
sw.WriteLine(LSet(CStr(SchedinePSColl.Item(i).CodAlloggiato), 2) & LSet(CStr(SchedinePSColl.Item(i).DataArrivo), 10) & LSet(CStr(SchedinePSColl.Item(i).CognomeAlloggiato), 50) & LSet(CStr(SchedinePSColl.Item(i).NomeAlloggiato), 30) & LSet(CStr(SchedinePSColl.Item(i).TipoSesso), 1) & _
                                 LSet(CStr(SchedinePSColl.Item(i).DataNascita), 10) & LSet(idcomunenascita, 9) & LSet(CStr(SchedinePSColl.Item(i).ProvinciaNascita), 2) & LSet(CStr(SchedinePSColl.Item(i).IdStatoNascita), 9) & LSet(CStr(SchedinePSColl.Item(i).IdCittandinza), 9) & _
                                 LSet(idcomuneresidenza, 9) & LSet(CStr(SchedinePSColl.Item(i).ProvinciaResidenza), 2) & LSet(CStr(SchedinePSColl.Item(i).IdStatoResidenza), 9) & LSet("", 50) & LSet(CStr(SchedinePSColl.Item(i).CodDocumento), 5) & LSet(CStr(SchedinePSColl.Item(i).NDocumento), 20) & _
                                 LSet(CStr(SchedinePSColl.Item(i).IdStatoDocumento), 9))
next

sw.Flush()
sw.Close()