Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _ Any, source As Any, ByVal bytes As Long)' write a byte into memorySub PokeB(ByVal address As Long, ByVal value As Byte) CopyMemory ByVal address, value, 1End Sub' write an integer into memorySub PokeI(ByVal address As Long, ByVal value As Integer) CopyMemory ByVal address, value, 2End Sub' write a Long value into memorySub PokeL(ByVal address As Long, ByVal value As Long) CopyMemory ByVal address, value, 4End Sub