List 6-70　変更したErrorcode列挙型（追加した部分は赤色で示した）

  1： Public Enum Errorcode
  2：     ' エラーの列挙型
  3：     ' 一般のエラー
  4：     Err_NotFound = vbObjectError + 513 + 1  ' 見つからない
  5：     
  6：     ' 顧客関連のエラー
  7：     Err_NAMETOOLONG = vbObjectError + 513 + 100 + 1 ' 顧客名が長すぎる
  8：     Err_YOMIGANATOOLONG = vbObjectError + 513 + 100 + 2 ' よみがなが長すぎる
  9：     Err_ZIPTOOLONG = vbObjectError + 513 + 100 + 3  ' 郵便番号が長すぎる
 10：     Err_ADDRESSTOOLONG = vbObjectError + 513 + 100 + 4 ' 住所が長すぎる
 11：     Err_TELEPHONETOOLONG = vbObjectError + 513 + 100 + 5   ' 電話番号が長すぎる
 12：     Err_FAXTOOLONG = vbObjectError + 513 + 100 + 6 ' FAX番号が長すぎる
 13：     Err_MEMOTOOLONG = vbObjectError + 513 + 100 + 7 ' 摘要が長すぎる
 14：     Err_BILLDAY = vbObjectError + 513 + 100 + 8 ' 締め日の設定エラー
 15： 
 16：     ' 製品関連のエラー
 17：     Err_PRICE = vbObjectError + 513 + 200 + 1   ' 価格が正しくない
 18：     Err_WILLDAY = vbObjectError + 513 + 200 + 2 ' 入庫予定日，出庫予定日が正しくない
 19：     Err_DUEDATE = vbObjectError + 513 + 200 + 3 ' 入庫施行日，出庫施行日が正しくない
 20：     Err_PRODUCTID = vbObjectError + 513 + 200 + 4   ' 製品番号が正しくない
 21：     Err_NUMBER = vbObjectError + 513 + 200 + 5  ' 数量が正しくない
 22：     Err_SLIPID = vbObjectError + 513 + 200 + 6  ' 伝票番号が正しくない
 23：     
 24： End Enum