Binaryworld - Poke - Write a value of any type into memory ... [ VB -> Api ]

' write a value of any type in memory
'
' The value is written in the format of the value passed
' as the second argument, but you can overwrite it by passing
' an explicit data type in the third argument (this is the only
' way to store a value as a 16-byte Variant)
' This routine doesn't support strings and objects

Sub Poke(ByVal address As Long, value As Variant, Optional ByVal ValueType As _
  VbVarType = -1)
  ' if a data type wasn't provided, use VarType()
  If ValueType = -1 Then ValueType = VarType(value)
  Select Case ValueType
    Case vbByte
      CopyMemory ByVal address, CByte(value), 1
    Case vbInteger
      CopyMemory ByVal address, CInt(value), 2
    Case vbBoolean
      CopyMemory ByVal address, CBool(value), 2
    Case vbLong
      CopyMemory ByVal address, CLng(value), 4
    Case vbSingle
      CopyMemory ByVal address, CSng(value), 4
    Case vbDouble
      CopyMemory ByVal address, CDbl(value), 8
    Case vbCurrency
      CopyMemory ByVal address, CCur(value), 8
    Case vbDate
      CopyMemory ByVal address, CDate(value), 8
    Case vbVariant
      CopyMemory ByVal address, value, 16
    Case Else
      Err.Raise 1001, , "Unsupported data type"
  End Select

End Sub