[الوليد ☺]

السلام عليكم ورحمة الله

أكيد تقصد DWord كما هو واضح من أمثلة النتائج التي في مثالك

هذه طريقة مختلفة قليلاً إن شاء الله تكون فيها الفائدة

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim b As Byte() = _
    {&H01, &H23, &H45, &H67, &H89, &HAB, &HCD, &HEF, &H01, &H12, &H23, &H34, &H45, &H56, &H67, &H78}

    Dim dw As Integer() = convBytesToDWords(b)

    Dim s As New System.Text.StringBuilder
    For i = 0 To dw.Length - 1
        s.AppendLine(String.Format("dw({0}) = {1} ", i, Hex$(dw(i))))
    Next
    MsgBox(s.ToString)

End Sub


Private Function convBytesToDWords(b As Byte()) As Integer()
    Dim dw((b.Length / 4) - 1) As Integer
    For i1 = 0 To b.Length - 1 Step 4
        For i2 = 0 To 3
            dw(i1 / 4) = (dw(i1 / 4) << 8) + (b(i1 + 3 - i2))
        Next
    Next
    Return dw
End Function