Need some help! with WR

Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single) 
Dim hWnd As Long 
Dim pid As Long 
Dim phandle As Long 
hWnd = FindWindow(vbNullString, gamewindowtext) 
If (hWnd = 0) Then 
MsgBox "The Game Is Not Working", vbCritical, "Error" 
End 
Exit Function 
End If 

GetWindowThreadProcessId hWnd, pid 
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) 
If (phandle = 0) Then 
MsgBox "Can't get ProcessId", vbCritical, "Error" 
Exit Function 
End If 

ReadProcessMem phandle, address, valbuffer, 4, 0& 
CloseHandle hProcess 
End Function 



Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single) 
Dim hWnd As Long 
Dim pid As Long 
Dim phandle As Long 

hWnd = FindWindow(vbNullString, gamewindowtext) 
If (hWnd = 0) Then 
MsgBox "The Game Is Not Working", vbCritical, "Error" 
End 
Exit Function 
End If 

GetWindowThreadProcessId hWnd, pid 
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) 
If (phandle = 0) Then 
MsgBox "Can't get ProcessId", vbCritical, "Error" 
Exit Function 
End If 

WriteProcessMemory phandle, address, value, 4, 0& 
CloseHandle hProcess 
End Function