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

Private Sub Command1_Click()
    Dim bytArr(2) As Byte
    Dim strGG$
    strGG = "&H" & "0A"
    bytArr(0) = CByte(strGG)
    Debug.Print bytArr(0)
End Sub

运行结果：

 10