Numbers with leading zeroes, using vb6

Question

How can I add leading zeroes to a number? For example:

Dim stracctnumber as String
stracctnumber = 987654321

If stracctnumber is less than 15 characters, then add leading zeroes to the account number.

The final number should be

stracctnumber = "000000987654321"

Can anyone help me?

Answer 1

stracctnumber = Format(stracctnumber, String(15, "0"))