Const zipCode As long = 10012 Dim zeroPaddedNumber As String zeroPaddedZipCode = Format(zipCode, "00000000") 'zeroPaddedNumber = "00010012"