Originariamente inviato da oregon
Ti ho detto di controllare la

lunghezza

della stringa rappresentata da Item(i)

La lunghezza deve essere >0 !

If .... >0 Then
TextBox25.Text &= (ItemList.Item(i) & vbCrLf)
End If
ciao, prima di utilizzare il nothing avevo fatto una cosa simile al tuo suggerimento:
codice:
For i = 0 To ItemList.Count - 1
            If ItemList.Item(i) <= 0 Then
Else
                TextBox25.Text &= (ItemList.Item(i) & vbCrLf)
                System.IO.File.WriteAllText(Application.StartupPath & "\libreria\lib.txt", TextBox25.Text)
            End If
        Next
ma mi dava un errore all'apertura dell'exe

ora ho provato a fare come mi hai consigliato ovvero cos'ì

codice:
For i = 0 To ItemList.Count - 1
            If ItemList.Item(i) > 0 Then

                TextBox25.Text &= (ItemList.Item(i) & vbCrLf)
                System.IO.File.WriteAllText(Application.StartupPath & "\libreria\lib.txt", TextBox25.Text)
            End If
        Next
e l'errore persiste: