How do I convert an integer type variable to a string with a specified number of leading zeros within a basic macro?

[Shane1]

How do I convert an integer type variable to a string with a specified number of leading zeros within a basic macro?

e.g 5 => “0005”

[JPLED]

Dim iNumber As Integer, sString As String
      ' Put 10 zeroes if the total length should be = 10
      sString = Right("0000000000" & iNumber, 10)

[EasyTrieve]

For how to write a simple basic macro to do this, please see my answer to this question.