Je poste la solution que j'ai trouvé, si ca peut aider:
a0 00 02 :
Imports System.IO
Dim ms As MemoryStream = New MemoryStream(3)
ms.Write(BitConverter.GetBytes(Convert.ToUInt16(160)), 0, 2)
ms.Write(BitConverter.GetBytes(Convert.ToUInt16(2)), 0, 1)
sock.Send(ms.ToArray())