Dim myArray1() As String
 
Dim s As String
Dim i As Integer
ReDim Preserve myArray1(ListBox1.Items.Count)
For i = ListBox1.Items.Count - 1 To 0 Step -1
  myArray1(i) = ListBox1.Items.Item(i)
Next
 
 
Dim swWriter As IO.StreamWriter = New StreamWriter("C:\Test\test.txt")
 
 
 
Array.Sort(myArray1)
Array.Reverse(myArray1)
 
For Each s In myArray1
  swWriter.WriteLine(s)
Next
 
swWriter.Close()