vale mirad
dir = VarPtr(A0)
dir = dir + 2
CopyMemory ByVal VarPtr(destino), ByVal dir, 10
Debug.Print destino
e puesto 10 bytes y solamente necesito los 2!
significa que estuviera accedienco a memoria prohibida de otra variable o mas de otro programa
y lo peor es que me da correcto