Type DataPacket( _
Address As Int, _
CommandString As String, _
RawData As List _ 'Complete Packet as Raw Data in Byte Format
)
Dim TempByte As Byte
Dim Message1 As DataPacket
TempByte = Bit.AND(255)
PacketPointer.RawData.Add(TempByte)
TempByte = Bit.AND(0)
PacketPointer.RawData.Add(TempByte)
TempByte = Bit.AND(1)
PacketPointer.RawData.Add(TempByte)