Vbscript code to auto increment by 1 text value '0000001'

[kdjonesmtb2]

What is the correct vbscript to auto increment a starting txt value of '0000001 by 1

For example

0000001
0000002
0000003

etc

Thanks

 

[strongm]

Here's one way:

[blue]Public Function AutoInc(strSource)
    AutoInc = Right(String(6, "0") & strSource + 1, 7)
End Function[/blue]