新建From1（窗体），新建Command1（按钮CommandButton），代码：

Option Explicit

Private Sub Command1_Click()
    Dim hexStr As String
    Dim byteValue As Byte
    
    ' 要转换的十六进制字符串
    hexStr = "A"
    
    ' 将十六进制字符串转换为数值
    byteValue = Val("&H" & hexStr)
    
    ' 输出转换后的结果
    Debug.Print "十六进制字符串: " & hexStr
    Debug.Print "转换后的 Byte 值: " & byteValue
    
    '-------------------------------------------
    Dim hexStrArray() As String
    Dim tempArray As Variant
    Dim i As Long
    
    ' 定义十六进制字符串数组
    hexStrArray = Split("A,B", ",")
    
    ' 初始化 tempArray 数组
    ReDim tempArray(UBound(hexStrArray))
    
    ' 遍历十六进制字符串数组，将其转换为数值并存入 tempArray
    For i = LBound(hexStrArray) To UBound(hexStrArray)
        tempArray(i) = Val("&H" & hexStrArray(i))
    Next
    
    ' 输出转换后的结果
    For i = LBound(tempArray) To UBound(tempArray)
        Debug.Print "数组元素 " & i & " 的值: &H" & Hex(tempArray(i))
    Next
End Sub

运行结果：

十六进制字符串: A
转换后的 Byte 值: 10
数组元素 0 的值: &HA
数组元素 1 的值: &HB