Erro no sistema de Quest

Bom galera não estive respondendo por um tempo por problemas com a internet mas agora estive testando a engine que uso sem edição e editada também e descobri (acho) a fonte deste erro...
Nestas linhas:

Código:

Sub HandlePlayerHandleQuest(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim Buffer As clsBuffer
    Dim QuestNum As Long, Order As Long, i As Long
   
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    QuestNum = Buffer.ReadLong
    Order = Buffer.ReadLong '1 = accept, 2 = cancel

Reparei que na engine editada esta linha está causando erro:
Buffer.WriteBytes Data()
porém na engine sem edição não da erro algum nesta mesma linha.
mas na engine editada se eu trocar:

Código:

Buffer.WriteBytes Data()

Por:

Código:

Buffer.WriteLong Data()

o erro na Sub WriteBytes para de ocorrer porém na engine sem edição, ocorre bugs como não aceitar a missão quando fala com NPC nem ao mesmo cancela.


Já a engine editada simplesmente para de ocorrer o erro na Sub WriteBytes porém todas as funções do sistema de quest ficam sem funcionar,ops, antes já não funcionavam só que quando clicava na picQuestButton dava este erro na Sub WriteBytes, que resolvi só que esses bugs ainda continuam, bugs como não abrir o editor de quest e não aceitar quest.
Bom, ta aí as novidades do problema.

Já falei, verifique se os dados que serão enviados pelo cliente, serão recebidos na mesma ordem pelo servidor.

Se não conseguiu corrigir ainda, você já tentou apagar todos os dados da pasta do servidor, tipo a pasta DATA?

se Não tenta ai e responda.