ho riscontrato un nuovo problema, ho notato che utilizzando questo codice
codice:
 
'per ordinare in oldine alfabetico il file lib.txt
        Dim i As Integer
        Dim ItemList As New ArrayList()
        Dim myText As String = IO.File.ReadAllText(Application.StartupPath & "\libreria\lib.txt")
        Dim myArray() As String = Split(myText, vbCrLf)
        For i = 0 To myArray.Length - 1 Step 1
            ItemList.Add(myArray(i))
        Next i
        ' ItemList.Add("Item4")
        ' ItemList.Add("Item5")
        ' ItemList.Add("Item2")
        ' ItemList.Add("Item1")
        ' ItemList.Add("Item3")
        'MsgBox("Visualizzo gli items che ho aggiunto")
        'For i = 0 To ItemList.Count - 1
        'MsgBox(ItemList.Item(i))
        'Next
        'insert an item
        'ItemList.Insert(3, "Item6")
        'sort itemms in an arraylist
        ItemList.Sort()
        'remove an item
        'ItemList.Remove("Item1")
        'remove item from a specified index
        'ItemList.RemoveAt(3)
        ' MsgBox("Visualizzo gli items in ordine alfabetico")
        'For i = 0 To ItemList.Count - 1
        'MsgBox(ItemList.Item(i))
        'Next
        For i = 0 To ItemList.Count - 1
            TextBox25.Text &= (ItemList.Item(i) & vbCrLf)
            System.IO.File.WriteAllText(Application.StartupPath & "\libreria\lib.txt", TextBox25.Text)
        Next
mi ordina le righe ma ad ogni volta me ne aggiunge una vuota all'inizio