Code:
sReader.Close()

        ReDim dblArrStation(intStationCounter - 1, 2)

        intNrStations = intStationCounter

        sReader = IO.File.OpenText(txtFilename.Text)
        strRecord = sReader.ReadLine()

        For intStationCounter = 0 To intNrStations - 1
            strRecord = sReader.ReadLine()
            strArrColumns = strRecord.Split(chrArrDelim)
...