Function StrZero( number, len )
    Dim cMask
    cMask = "0000000000000000000000000000000000"
    StrZero = Right(cMask & FormatNumber( number,0,,,0), len )
End Function