このコードで整数値を 1 ずつ大きくすると、小さな問題が発生します。
Dim id as integer = 10
Dim Lines() As String = File.ReadAllLines("FilePath")
Dim writer as New.System.IO.StreamWriter("NewFileName")
For Each Line As String In Lines
id = id + 1
writer.Write(id & Line)
Next
writer.close()
行数に関係なく、常に ID 値 11 を取得しますが、11、2 行目 12、3 行目 13 などは取得しません。