Imports System

Public Module Module1

Dim folder As String

        folder = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

        Dim filename As String = "colours.txt"

        filename = folder & "\" & filename

        Dim oreader As System.IO.StreamReader

        oreader = New IO.StreamReader(filename, True)

        Dim sLine As String

        Dim Colour(6) As String

        For i = 0 To 6

            sLine = oreader.ReadLine()

            Colour(i) = sLine

        Next

        Dim temp As String

        For i = 0 To Colour.GetUpperBound(0) - 1

            For j = 0 To Colour.GetUpperBound(0) - 1

                If Colour(j) > Colour(j + 1) Then

                    temp = Colour(j)

                    Colour(j) = Colour(j + 1)

                    Colour(j + 1) = temp

                End If

            Next j

        Next i

        Dim ostreamer As System.IO.StreamWriter

        ostreamer = New IO.StreamWriter(filename, True)

        For i = 0 To 5

            ostreamer.WriteLine(Colour(i))

        Next

        Do While oreader.EndOfStream = False

            sLine = oreader.ReadLine()

            Console.WriteLine(sLine)

        Loop

        Console.ReadLine()

        oreader.Close()

    End Sub

End Module

​

'Not sure how to do this