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

Answer 1

B8 = Format((Format(B2, "###,###")), "@@@@@@@")

This is to add spaces to left.

WORKS GREAT in VBA Excel.....

Answer 2

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

Answer 3

strAcct = Right("000000000000000" & strAcct, 15)

Note that concatenation is relatively 'expensive'. If this is just for display, rather than modifying the underlying value, consider using the Format() function.