PokeB, PokeI, PokeL - Write a byte, integer or long value into memory

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
    Any, source As Any, ByVal bytes As Long)

' write a byte into memory

Sub PokeB(ByVal address As Long, ByVal value As Byte)
    CopyMemory ByVal address, value, 1
End Sub

' write an integer into memory

Sub PokeI(ByVal address As Long, ByVal value As Integer)
    CopyMemory ByVal address, value, 2
End Sub

' write a Long value into memory

Sub PokeL(ByVal address As Long, ByVal value As Long)
    CopyMemory ByVal address, value, 4
End Sub