vb中位操作 （，满意即结贴）

vb中位操作 （在线等，满意即结贴）
一个整形变量 a
我现在想取 a 的第二字节 加上 （第一字节的后四位） 的计算结果，哪位能帮忙？

[解决办法]
Dim val As Long
val = &HFFFFFFFF
val = val And &HFF0F&

Debug.Print Hex(val)
[解决办法]

VB code

Option ExplicitSub Main()    Dim a As Long    Dim b As Long    a = 19984    b = ((a And &HFF00&) \ &H100&) + (a And &HF&)    Debug.Print bEnd Sub