Dim pStr As StringDim pBytes() As BytepStr = "3404" & hexwordConvHEX2ByteArray pStr, pBytesSendPackets pBytesEnd Sub