Dim MyShort As uShort = 32 Dim oByteArray As New System.Collections.BitArray(System.BitConverter.GetBytes(MyShort))