ExcelVBA CByte関数 引数をByte型に変換します

'■CByte関数サンプル
Sub CByte_Sample()
  Dim v As Variant
  
  On Error GoTo ErrH
  
  v = 123.456   '小数点のある数値
  Debug.Print "CByte(" & v & "): " & CByte(v)
  
  v = "123.456" '文字列の小数付き数字
  Debug.Print "CByte(""" & v & """): " & CByte(v)
  
  v = "255.567" '文字列の小数付き数字(四捨五入)
  Debug.Print "CByte(""" & v & """): " & CByte(v)
  
  v = "-123"    '文字列のマイナス数字
  Debug.Print "CByte(""" & v & """): " & CByte(v)
  
  v = "ABC"     '数字ではない文字列
  Debug.Print "CByte(""" & v & """): " & CByte(v)
  
  Exit Sub
'エラーハンドラー
ErrH:
  Debug.Print "CByte(""" & v & """): " & _
      "エラー" & Err.Number & Err.Description
  Resume Next
End Sub

'■文字列のRGB値をCByte関数で変換するサンプル
Sub GetRGBFromString()
  Dim sRGB As String
  Dim red As Byte
  Dim green As Byte
  Dim blue As Byte

  'RBG値を文字列で指定する例:"255,0,128"
  sRGB = "255,0,128"

  'カンマで分割して数値に変換 array
  Dim rgbValues() As String
  rgbValues = Split(sRGB, ",")
  If UBound(rgbValues) = 2 Then
    On Error Resume Next
    red = CByte(rgbValues(0))
    green = CByte(rgbValues(1))
    blue = CByte(rgbValues(2))
    On Error GoTo 0
    'エラーがあった場合は処理を分岐
    If Err.Number = 0 Then
      'バイト型の値を表示
      Debug.Print "Red (Byte): " & red
      Debug.Print "Green (Byte): " & green
      Debug.Print "Blue (Byte): " & blue
    Else
      Debug.Print "無効な RGB 値です。"
    End If
  Else
    Debug.Print "無効な RGB 文字列形式です。"
  End If
End Sub