Sub Main()
        Dim myFile As New System.IO.StreamReader("C:\hello.txt")
        Dim strTextArray() As String = {}
        Dim intIndex As Integer = 0

        Do Until myFile.EndOfStream = True
            ReDim Preserve strTextArray(intIndex)
            strTextArray(intIndex) = myFile.ReadLine()
            intIndex += 1
        Loop

        For i As Integer = 0 To UBound(strTextArray)
            Console.WriteLine(strTextArray(i))
        Next

        Console.ReadKey()
    End Sub

Sub Main()
        Dim strTextArray() As String = System.IO.File.ReadAllLines("C:\hello.txt")

        For i As Integer = 0 To UBound(strTextArray)
            Console.WriteLine(strTextArray(i))
        Next

        Console.ReadKey()
    End Sub

    Sub test()
        Dim count As Integer = 0
        Try
            Dim fr As String = "C:\hello.txt"
            Dim SR As StreamReader = File.OpenText(fr)
            Dim lines As String() = New String(10000) 'dummy size value
            Dim line As String = Nothing
            While (line = SR.ReadLine()) <> Nothing
                lines(count) = line
                Console.WriteLine(lines(count).ToString())
                count += 1
            End While
            Array.Resize(Of String)(lines, count)
            SR.Close()
            Console.ReadLine()
            Dim fw As String = "C:\hello2.txt"
            Dim SW As StreamWriter = New StreamWriter(fw)
            
            Dim i As Integer = 0
            While i < lines.Length
                SW.WriteLine(lines(i))
                System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
            End While

            SW.Flush()
            SW.Close()
            Console.ReadLine()
        Catch e As Exception
            Console.WriteLine("{0}", e.StackTrace + "" & Microsoft.VisualBasic.Chr(10) & "" + count.ToString())
            Console.ReadLine()
        End Try

    End Sub