Need some help with duplicating lines ! !

[Henkie]

Hello all, I have the following that I can not getting work, for example
my input file is as below

Test01,Bitmap01,01
Test02,Bitmap02,02
Test04,Bitmap04,04
Test05,Bitmap05,05
Test03,Bitmap03,03

The file I want created out of this is as below

Test01,Bitmap01,01
Test02,Bitmap02,02
Test02,Bitmap02,02
Test04,Bitmap04,04
Test04,Bitmap04,04
Test04,Bitmap04,04
Test04,Bitmap04,04
Test05,Bitmap05,05
Test05,Bitmap05,05
Test05,Bitmap05,05
Test05,Bitmap05,05
Test05,Bitmap05,05
Test05,Bitmap05,05
Test03,Bitmap03,03
Test03,Bitmap03,03
Test03,Bitmap03,03

I want for each line in the output as many lines as
are giving in the input file in charcter 17 till 18
I think that is clear how I want te output.

the code I using is here below but that is not
working, i hope that someone can help me
on the good way. I am rather new in VB
Dim NumberOfLines
Dim Counter
Counter =1
'
Do While Not EOF(1)
'
Counter = Format$(Counter, "00")
Line Input #1, A$
NumberOfLines = Mid(A$, 17, 2)
If Counter <> NumberOfLines Then
Print #2, Left(A$, 18)
Counter = Counter + 1
'End If
Teller = 1
'
Loop

Now with this code my output file is the same as my input file :-(
Hope that someone can give me some help.

Greetings
Henkie