[Buying] $10 for simple sources on Visual Basic 6

[budkai]

Looking for someone to make simple sources Visual Basic 6.0 only

use this Cheat Engine

<?xml version="1.0" encoding="utf-8"?>
<CheatTable>
<CheatEntries>
<CheatEntry>
<ID>64</ID>
<Description>"Health"</Description>
<LastState Value="300" Activated="0" RealAddress="00000000"/>
<Color>80000008</Color>
<VariableType>Float</VariableType>
<Address>"ShooterGame.exe"+02A2C7A8</Address>
<Offsets>
<Offset>538</Offset>
<Offset>2A0</Offset>
<Offset>10</Offset>
<Offset>28</Offset>
<Offset>28</Offset>
</Offsets>
</CheatEntry>
</CheatEntries>
</CheatTable>

i try this but dont work

Private Sub Command1_Click()
Dim Value1 As Long
Call ReadALong("ShooterGame", &H2A2C7A8 + &H538 + &H2A0 + &H10 + &H28 + &H28, Value1)
Text1.Text = Value1
End Sub

any one