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

新建modChangeSystem（模块 modChangeSystem.bas），代码：

扩展一下：

如果使用 modChangeSystem.bas，那么

Private Sub Command2_Click()
    Dim bytB() As Byte
    Dim strHex As String

    strHex = InputBox("输入十六进制字符串空格间隔开：")
    If strHex <> "" Then
        bytB = HexToBytes(strHex)

        MsgBox "一共输入了：" & (UBound(bytB) + 1) & " 组十六进制。"
    End If
End Sub

可以输入：

a b ff

测试下，得到3。