Dim FiStr As FileStream
                    Dim StrWr As StreamWriter
                    Dim myArray1() As String
                    Dim s As String
                    Dim datName As String = "C:\Test\test.txt"
 
 
 
                    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