FORMAT VARIABLES

'Format 3 Zeroes - 000

Lessor = Format(Lessor, String(3, "0"))

'Format 9 Zeroes - 000000000

FEDID = Format(FEDID, String(9, "0"))

'Format 5 Zeroes - 00000

BillingZip = Format(BillingZip, String(5, "0"))

'Format Date 09142015

CommencementDate = Format(CommencementDate, String(8, "0"))

CommencementDateMM = Mid(CommencementDate, 1, 2) '09

CommencementDateDD = Mid(CommencementDate, 3, 2) '14

CommencementDateYYYY = Mid(CommencementDate, 5, 4) '2015

'Format to All Capital Letters

If CustName <> "" Then

Format CustName

CustName = Format(CustName, ">")

End If