Read file Character by Character in vb.net

Dim currChar As Char
Dim data As String

  Using sr As New StreamReader("C:\test.txt")
            Do While sr.Peek <> -1
                currChar = Chr(sr.Read)
                data = data & currChar
                Console.WriteLine(data)
            Loop
   End Using