Dim swWriter As IO.StreamWriter = New StreamWriter("C:\Test\test.txt")

ReDim Preserve myArray1(ListBox1.Items.Count)
For i = ListBox1.Items.Count - 1 To 0 Step -1
  myArray1(i) = ListBox1.Items.Item(i)
Next

  Dim FiStr As FileStream
                    Dim StrWr As StreamWriter
                    Dim myArray1() As String
                    Dim s As String
 
 
 
 
                    Dim s As String
 
 
                    FiStr = New FileStream(datName, FileMode.Append)
                    StrWr = New StreamWriter(FiStr)
 
                    Array.Sort(myArray1)
                    Array.Reverse(myArray1)
 
                    For Each s In myArray1
                        StrWr.WriteLine(s)
                    Next
 
 
 
                    StrWr.Close()
 
 
 
 
 
                End If