Cheat Engine 6.3: Pointer in VB.net

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As String = TextBox1.Text

        Try

            WriteDMAInteger("PlantsVsZombies.exe", &H17B9F0, Offsets:={&H4, &H70}, Value:=TextBox1.Text, Level:=1, nsize:=4)

        Catch ex As Exception

        End Try
    End Sub
End Class

//half pseudo-code
Private proc As Process = Process.GetProcessesByName(ProcessName)(0)
Private hProcess as IntPtr = OpenProcess(PROCESS_ALL_ACCESS, False, proc.Id)

Private Function ReadInteger(ByVal Address As Integer) As Integer
	Dim vBuffer As Integer
	ReadProcessMemory(hProcess, Address, vBuffer, 4, 0) //declared with modified parameters, lpBaseAddress as Integer, lpBuffer as Integer
	Return vBuffer
End Function

Private Sub WriteInteger(ByVal Address As Integer, ByVal Value as Integer)
	WriteProcessMemory(hProcess, Address, Value, 4, 0) //declared with modified parameters, lpBaseAddress as Integer, lpBuffer as Integer
End Function

Private myPointerBase = ReadInteger(myAddress)
Private myPointerWithOffset1 = myPointerBase + myPointerOffset1
Private myPointerWithOffset2 = ReadInteger(myPointerWithOffset1) + myPointerOffset2
// ... so on and so forth
Private myFinalAddress = myPointerWithFinalOffset
WriteInteger(myPointerWithFinalOffset, myValue)