Need a bit help

<DllImport("kernel32.dll")> _
Private Shared Function ReadProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, <[In], Out> buffer As Byte(), size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
End Function
<DllImport("kernel32.dll")> _
Private Shared Function WriteProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, <[In], Out> buffer As Byte(), size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
End Function
Private pHandel As IntPtr
Public Function Process_Handle(ProcessName As String) As Boolean
	Try
		Dim ProcList As Process() = Process.GetProcessesByName(ProcessName)
		If ProcList.Length = 0 Then
			Return False
		Else
			pHandel = ProcList(0).Handle
			Return True
		End If
	Catch ex As Exception
		Console.Beep()
		Console.WriteLine("Process_Handle - " + ex.Message)
		Return False
	End Try
End Function
Private Function Read(Address As Long, Length As Integer) As Byte()
	Dim Buffer As Byte() = New Byte(Length - 1) {}
	Dim Zero As IntPtr = IntPtr.Zero
	ReadProcessMemory(pHandel, DirectCast(Address, IntPtr), Buffer, DirectCast(Buffer.Length, UInt32), Zero)
	Return Buffer
End Function
Private Sub Write(Address As Long, Value As Integer)
	Dim Buffer As Byte() = BitConverter.GetBytes(Value)
	Dim Zero As IntPtr = IntPtr.Zero
	WriteProcessMemory(pHandel, DirectCast(Address, IntPtr), Buffer, DirectCast(Buffer.Length, UInt32), Zero)
End Sub


'Write Funcs
Public Sub WriteString(Address As Long, Text As String)
	Dim Buffer As Byte() = New ASCIIEncoding().GetBytes(Text)
	Dim Zero As IntPtr = IntPtr.Zero
	WriteProcessMemory(pHandel, DirectCast(Address, IntPtr), Buffer, DirectCast(Buffer.Length, UInt32), Zero)
End Sub

Public Sub WriteNOP(Address As Long)
	Dim Buffer As Byte() = New Byte() {&H90, &H90, &H90, &H90, &H90}
	Dim Zero As IntPtr = IntPtr.Zero
	WriteProcessMemory(pHandel, DirectCast(Address, IntPtr), Buffer, DirectCast(Buffer.Length, UInt32), Zero)
End Sub

Public Sub WriteInteger(Address As Long, Value As Integer)
	Write(Address, Value)
End Sub

Public Sub WriteBytes(Address As Long, Bytes As Byte())
	Dim Zero As IntPtr = IntPtr.Zero
	WriteProcessMemory(pHandel, DirectCast(Address, IntPtr), Bytes, CUInt(Bytes.Length), Zero)
End Sub


'Read Funcs
Public Function ReadString(Address As Long, Optional Length As Integer = 4) As String
	Return New ASCIIEncoding().GetString(Read(Address, Length))
End Function

Public Function ReadBytes(Address As Long, Length As Integer) As Byte()
	Return Read(Address, Length)
End Function

Public Function ReadInteger(Address As Long, Optional Length As Integer = 4) As Integer
	Return BitConverter.ToInt32(Read(Address, Length), 0)
End Function

Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Windows.Forms

Namespace CallofDuty_Ghosts_Rank_Hack_Base_by_Distiny
	Public Partial Class Form1
		Inherits Form
		Public Sub New()
			InitializeComponent()
		End Sub

		'declare's and vars

		Private ghost As New mem()

		Private A_SquadPoints As Long = &H144332b40L




		Private Sub button1_Click(sender As Object, e As EventArgs)
			If ghost.Process_Handle("iw6mp64_ship") Then
				' this is a check to make sure ghost is running.
				Dim squadPoints As Integer = Convert.ToInt32(textBox1.Text)
				ghost.WriteInteger(A_SquadPoints, squadPoints)
			End If
		End Sub

		Private Sub Form1_Load(sender As Object, e As EventArgs)

		End Sub
	End Class
End Namespace