I found the following code but the buffer doesn't return anything.
Dim myStreamReader As StreamReader = New StreamReader( _
New FileStream("C:\somefile.txt", FileMode.Open), _
System.Text.Encoding.Unicode, False, 4096)
Dim cBuffer() As Char
ReDim cBuffer(4096)
Do While myStreamReader.ReadBlock(cBuffer, 0, cBuffer.Length - 1) > 0
'Buffer filled and available for use
Loop
myStreamReader.Close()