Cela vient de la longueur de la clé et donc de ça:
Dim _loc2_ As UInteger = param1.readUnsignedShort()
Change le par:
Dim _loc2_ As UInteger = param1.readVarInt() (si tu ta fonction est définit comme dans le DofusInvoker)
Et de même pour:
param1.writeShort(_key.count)
En:
param1.writeVarInt(_key.count)
Et dit moi si ça change quelque chose