List 6-19　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： End Enum