Dim sFileName As String
        Dim srFileReader As System.IO.StreamReader
        Dim sInputLine As String



        sFileName = "speed_writer.txt"
        srFileReader = System.IO.File.OpenText(sFileName)
        sInputLine = srFileReader.ReadLine()
        textarray(nroflines) = sInputLine

        Do Until sInputLine Is Nothing

            ReDim Preserve textarray(nroflines + 1)

            System.Console.WriteLine(sInputLine)
            sInputLine = srFileReader.ReadLine()
            nroflines += 1
            textarray(nroflines) = sInputLine
        Loop