float value to write???

Module Module1

    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer

    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As Integer) As Integer
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddressAsAny As Integer, ByRef lpBufferAsAny As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddressAsAny As Integer, ByRef lpBufferAsAny As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
    Private hPid As Long
    Private hProcess As Long
    Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Integer
    Public Function ReadMemory(ByVal lngAddress As Integer, ByVal value As Single, ByRef intSize As Short) As Integer
        Dim hWnd As Object, processHandle As Object, processId As Integer

        hWnd = FindWindow(vbNullString, "THE HOUSE OF THE DEAD 3")
        If (hWnd = 0) Then Application.Exit()

        GetWindowThreadProcessId(hWnd, processId)
        processHandle = OpenProcess(PROCESS_ALL_ACCESS, False, processId)

        If (intSize > 4) Then intSize = 4
        If (intSize < 1) Then intSize = 1

        WriteProcessMemory(processHandle, lngAddress, value, intSize, 0)

    End Function

    Public Sub writeSingle(ByVal lngAddress As Single, ByVal sngValue As Single)
        ReadMemory(lngAddress, (sngValue), 2)
    End Sub
    

End Module