Numbers with leading zeroes, using vb6

Question

Hi,

How 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

so final number should be

stracctnumber = "000000987654321"

Can anyone help me.

Thanks

Answer 1

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.

Answer 2

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