Reading File into an array [RESOLVED, and then some]

[Cagez]

I've opened the file successfully and put it into a textbox, but now I want to do separate lines... I've come up with this but it always makes an error...

opnFile.ShowDialog()
        fn = opnFile.FileName ' file name
        sr = File.OpenText(fn) ' my stream reader
 
        Dim x() As String
        While sr.Peek <> -1
            x(x.Length + 1) = sr.ReadLine()
        End While
 
        txtDisplay.Lines = x
        sr.Close()