vb如何进行位操作 - VB / 基础类

比如我一个long类型的变量x
现在我想把这四个字节写入到这个变量
&H1
&H2
&H3
&H4

使用指针的办法可以做到，我想知道有没有不使用指针的办法？
非常感谢！

---

http://www.xbeat.net/vbspeed/c_LongToBit.htm

---

VB code:
Option Explicit
Dim bytSj(3) As Byte
Dim i As Integer
Dim lngSj As Long
Private Sub Command1_Click()
bytSj(0) = &H11
bytSj(1) = &H2
bytSj(2) = &H3
bytSj(3) = &H4
For i = 0 To UBound(bytSj)
lngSj = lngSj + bytSj(i) * 256 ^ (3 - i)
Next
Text1 = lngSj
End Sub

---

VB code:
Option Explicit
Private Type bb
b1 As Byte
b2 As Byte
b3 As Byte
b4 As Byte
End Type
Private Type lng
lng As Long
End Type
Private Sub Form_Load()
Dim b As bb
Dim l As lng
b.b1 = &H1
b.b2 = &H2
b.b3 = &H3
b.b4 = &H4
LSet l = b
Debug.Print l.lng
End Sub