Hello, try it:
Code:
packetBuffer(0) = LongToByte((Len(Character) + (Len(text)) + 6), 1)
packetBuffer(1) = LongToByte((Len(Character) + (Len(text)) + 6), 2)
packetBuffer(2) = &H96
packetBuffer(3) = &H4
packetBuffer(4) = Len(Character)
packetBuffer(5) = &H0
For x = 1 To Len(Character)
packetBuffer(x + 5) = Asc(Mid(Character, x, 1))
Next x
packetBuffer(Len(Character) + 6) = LongToByte(Len(text), 1)
packetBuffer(Len(Character) + 7) = LongToByte(Len(text), 2)
For x = 1 To Len(textt)
packetBuffer(Len(Character) + 7 + x) = Asc(Mid(text, x, 1))
Next x
Character is name of char that you want send a message
text is a text to send
I hope that it help you