Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim fs As New FileStream("f:\Text_kurz.txt", FileMode.Open)
        Dim sr As StreamReader = New StreamReader(fs, _
          System.Text.Encoding.Default)
        Dim line As String, i As Int16 = 0
            Do
                line = sr.ReadLine()
            Console.WriteLine(line)
            i += 1
 
            Loop Until line Is Nothing
        sr.Close()
        fs.Close()
        Console.WriteLine(i)
        End Sub
 
End Class