How do print integers my program read from a file in numerical order in vb

Imports System.IO
Module Module1


    Sub Main()
        Dim readFromFile As StreamReader
        Dim FileName1 As String

        FileName1 = "C:\Documents and Settings\Administrator\Desktop\Anthony\Week 11 Homework\File Read and Display\Data\numbers.dat"


        readFromFile = File.OpenText(FileName1)
        If File.Exists(FileName1) Then
                Do Until readFromFile.EndOfStream
                Console.WriteLine(readFromFile.ReadLine())
                Loop
        Else
            Console.WriteLine("File Could not be found. Exiting program!")
        End If
        Console.WriteLine("Press When you are Finished press any key to exit.")
        Console.ReadKey()
        readFromFile.Close()
    End Sub
End Module