ああ、評価なら VB も似たように使えるよ

Dim c As Integer
Do While (c = fileStream.Read())

Loop