Cita:
Iniciado por xsmilex83 
podrias explicarmelo un pokillo mejor esq me lio no se que singnifica el 4 y luego quiero poner el resultado como seria:
Call WriteAlong("Warrock", cuenta, cuenta1)...
¿Qué parte del código no has entendido?:
Código:
' Definimos las variables
Dim cuenta As Long
Dim cuenta1 As Long
'Copiamos en 'cuenta' a partir del puntero de memoria &H4E45FFB 4 bytes (Long)
CopyMemory cuenta, &H4E45FFB, 4
'sumamos 1 a 'cuenta' y almacenamos en 'cuenta1'
cuenta1 = cuenta + 1
'Copiamos el contenido de cuenta1 al puntero de memoria &H4E45FFB
CopyMemory &H4E45FFB, cuenta1, 4
P.S.: ¿Qué es WriteALong?