如何给TXT加上000001这样的序号

[leonnet]

我有个TXT文件，里边的内容每天都不一样，如为
6227003834540018568|黄三|39168.00|33000013|
6227453555570058573|刘三|188.00|33000021|
6227003815644556724|杨大|20863.00|33000033|
6227003456733554079|张四|7632.00|33000100|
6227003453456634480|吴五|815.00|33000097|
.........
现在想实现在每一行数据前家序号，如：
00001|6227003834540018568|黄三|39168.00|33000013|
00002|6227453555570058573|刘三|188.00|33000021|
00003|6227003815644556724|杨大|20863.00|33000033|
......
00012|6227003456733554079|张四|7632.00|33000100|
00013|6227003453456634480|吴五|815.00|33000097|


我用
i=i+1

Print #4, CStr(i) & "|" & Trim(strAccount) & "|" & Trim(strnam) & "|" & strAmount & "|"

只能出来
1|6227003834540018568|黄三|39168.00|33000013|
2|6227453555570058573|刘三|188.00|33000021|
3|6227003815644556724|杨大|20863.00|33000033|
....
12|6227003456733554079|张四|7632.00|33000100|
13|6227003453456634480|吴五|815.00|33000097|

[无·法]

Print #4, format(i,"00000") & "|" & Trim(strAccount) & "|" & Trim(strnam) & "|" & strAmount & "|"