Excel VBA CVErr関数 独自のエラー番号を設定する

Sub CVErr_test_01()
'セルのエラーを書き込む
Range("A1") = "XlCVError定数"
Range("A2") = CVErr(2000) '(xlErrNull)
Range("A3") = CVErr(xlErrDiv0)
Range("A4") = CVErr(xlErrValue)
Range("A5") = CVErr(xlErrRef)
Range("A6") = CVErr(xlErrName)
Range("A7") = CVErr(xlErrNum)
Range("A8") = CVErr(xlErrNA)
Range("A9") = CVErr(xlErrGettingData)
Range("A10") = CVErr(xlErrSpill)
Range("A11") = CVErr(xlErrConnect)
Range("A12") = CVErr(xlErrBlocked)
Range("A13") = CVErr(xlErrUnknown)
Range("A14") = CVErr(xlErrField)

'セルのエラー値をテキストに変換して書き込む
Range("B1") = "テキストに変換"
Range("B2") = CStr(CVErr(Range("A2")))
Range("B3") = CStr(CVErr(Range("A3")))
Range("B4") = CStr(CVErr(Range("A4")))
Range("B5") = CStr(CVErr(Range("A5")))
Range("B6") = CStr(CVErr(Range("A6")))
Range("B7") = CStr(CVErr(Range("A7")))
Range("B8") = CStr(CVErr(Range("A8")))
Range("B9") = CStr(CVErr(Range("A9")))
Range("B10") = CStr(CVErr(Range("A10")))
Range("B11") = CStr(CVErr(Range("A11")))
Range("B12") = CStr(CVErr(Range("A12")))
Range("B13") = CStr(CVErr(Range("A13")))
Range("B14") = CStr(CVErr(Range("A14")))
Range("B15") = CStr(CVErr(Range("A15")))

'エラー番号に変換して書き込む
Range("C1") = "エラー番号"
Range("C2") = CLng(CVErr(xlErrNull))
Range("C3") = CLng(CVErr(xlErrDiv0))
Range("C4") = CLng(CVErr(xlErrValue))
Range("C5") = CLng(CVErr(xlErrRef))
Range("C6") = CLng(CVErr(xlErrName))
Range("C7") = CLng(CVErr(xlErrNum))
Range("C8") = CLng(CVErr(xlErrNA))
Range("C9") = CLng(CVErr(xlErrGettingData))
Range("C10") = CLng(CVErr(xlErrSpill))
Range("C11") = CLng(CVErr(xlErrConnect))
Range("C12") = CLng(CVErr(xlErrBlocked))
Range("C13") = CLng(CVErr(xlErrUnknown))
Range("C14") = CLng(CVErr(xlErrField))
Range("C15") = CLng(CVErr(xlErrCalc))
End Sub

Sub CVErr_test_02()
  Dim myErr As Variant
  myErr = CVErr(xlErrDiv0) '変数に「エラー 2007」が入る。

  Dim strErr As String
  strErr = myErr '実行時エラー'13':型が一致しません。

  Dim lngErr As Long
  lngErr = myErr '実行時エラー'13':型が一致しません。
End Sub

Sub CVErr_test_03()
  Dim myErr As Variant
  myErr = CVErr(xlErrDiv0)
  Debug.Print (myErr)   'エラー 2007

  Dim strErr As String
  strErr = CStr(myErr)
  Debug.Print (strErr)  '"エラー 2007"

  Dim lngErr As Long
  lngErr = CLng(myErr)
  Debug.Print (lngErr)  '2007
End Sub

'CVErrを使ったユーザー定義関数でデータチェックするサンプル
Sub CVErr_test_04()
  Dim vdat As Variant
  Dim inp As Variant
  '数値がインプットされた設定
  inp = 15
  vdat = chk_CVErr(inp)
  Debug.Print vdat '30(15×2)正常値が返る
  '文字列がインプットされた設定
  inp = "ぬえ"
  vdat = chk_CVErr(inp)
  Debug.Print vdat 'エラー 9999(数値以外は指定エラー番号が返る)
End Sub

'正当な引数(数値)なら2倍にして返す、数値以外はエラーを返す
Function chk_CVErr(inp As Variant) As Variant
  If IsNumeric(inp) Then
    chk_CVErr = inp * 2     '数値なら２倍して返す
  Else
    chk_CVErr = CVErr(9999) '数値以外はエラーを返す
  End If
End Function