Sub Main()
 
        Dim myStreamReader As StreamReader
        Dim Zeile As String
        myStreamReader = File.OpenText("C:\test.txt")
 
        Zeile = myStreamReader.ReadToEnd
 
        For i As Integer = 0 To CType(Zeile.Substring(4), Integer)
            Console.WriteLine(i)
        Next
        Console.ReadLine()
 
        myStreamReader.Close()
 
    End Sub