请教各位高手：VB如何实现在数字前自动加零，谢谢！

各位VB达人：
请问如何用VB现实下列需要功能。有一个txt文件，内容大致如下：
TC_FG1；
TC_FG2；
TC_FG3；
TC_FG4；
TC_FG5；
TC_FG6；
TC_FG7；
TC_FG8；
TC_FG9；
TC_FG10；
TC_FG11；
TC_FG22；
TC_FG13；
TC_FG14；
TC_FG15；
TC_FG16；
TC_FG17；
TC_FG18；
TC_FG19；
TC_FG20；
……
TC_FG100；
TC_FG101；
……
TC_FG1000；
TC_FG1001；
……
我需要实现的是将这个txt文件之各位前面加上四个零，十位数前面加上三个零，百位数前面加上两个零，如下：
TC_FG00001；
TC_FG00002；
……
TC_FG00010；
TC_FG00011；

……
TC_FG00100；
TC_FG00101；
……
TC_FG01000；
TC_FG01001；
……
请问怎样用VB编程实现？？谢谢高手相助！ --------------------编程问答--------------------

msgbox LEFT(aa,5) & RIGHT("000000" & RIGHT(aa,LEN(aa)-5),6)

--------------------编程问答-------------------- format(a,"0000") --------------------编程问答--------------------

Dim i As Long

for i = 1 To 1000

    Debug.Print "TC_FG" & Format$(i, "00000")

Next

--------------------编程问答-------------------- 可以用Format，也可以用Right

比如，要显示六位数，那么数字50的显示就应该是：000050

Format的显示方式：debug.print Format("50","000000")
Right的显示方式：debug.print Right("000000" & "50",6)

补充：VB ,  基础类