PeekByte

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

' read a byte from memory


Function PeekB(ByVal address As Long) As Byte
CopyMemory PeekB, ByVal address, 1
End Function

' read an integer from memory


Function PeekI(ByVal address As Long) As Integer
CopyMemory PeekI, ByVal address, 2
End Function

' read a Long value from memory


Function PeekL(ByVal address As Long) As Long
CopyMemory PeekL, ByVal address, 4
End Function