🙁 How do i edit a string with visual basic express 2010?

Error 7 'Process_Handle' is not declared. It may be inaccessible due to its protection level. C:\Users\Getsuga121\Documents\Visual Studio 2010\Projects\Login1\Login1\trainer.vb 94 12 Login1
Error 8 'WriteString' is not declared. It may be inaccessible due to its protection level. C:\Users\Getsuga121\Documents\Visual Studio 2010\Projects\Login1\Login1\trainer.vb 95 13 Login1

i even added both classes and modules and get that

code:
clan:
023049b0

name:
02304944
that is 4d1 so.

Ok i took out the other class, it still gives error about write string,etc and what do i use to edit normal integers like ammo because it is not in there.

lol i feel like i am in school messing with integers.

Class BO2_MemoryClass
Private GameProc As String = ""
Private Function OpenGame() As IntPtr
If System.Diagnostics.Process.GetProcessesByName(Game Proc).Length = 1 Then
Return System.Diagnostics.Process.GetProcessesByName(Game Proc)(0).Handle
End If
Return New IntPtr(0)
End Function
Public Enum ProcessAccessFlags As UInteger
All = &H1F0FFF
Terminate = &H1
CreateThread = &H2
Operation = &H8
Read = &H10
Write = &H20
DupHandle = &H40
SetInformation = &H200
QueryInformation = &H400
Synchronize = &H100000
End Enum
<Runtime.InteropServices.DllImport("kernel32.dll") > _
Private Shared Function OpenProcess(dwDesiredAccess As ProcessAccessFlags, <Runtime.InteropServices.MarshalAs(Runtime.Interop Services.UnmanagedType.Bool)> bInheritHandle As Boolean, dwProcessId As Integer) As IntPtr
End Function
<Runtime.InteropServices.DllImport("kernel32.dll") > _
Private Shared Function CloseHandle(hObject As IntPtr) As Boolean
End Function
<Runtime.InteropServices.DllImport("kernel32.dll") > _
Private Shared Function ReadProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, <Runtime.InteropServices.In, Runtime.InteropServices.Out> buffer As Byte(), size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
End Function
<Runtime.InteropServices.DllImport("kernel32.dll") > _
Private Shared Function WriteProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, <Runtime.InteropServices.In, Runtime.InteropServices.Out> buffer As Byte(), size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
End Function


Public Function Process_Handle(ProcessName As String) As Boolean
GameProc = ProcessName
If System.Diagnostics.Process.GetProcessesByName(Proc essName).Length = 1 Then
Return True
End If
Return False
End Function
#Region "Write Stuff"
Public Sub WriteString(Address As Integer, Text As String, Optional Length As Integer = -1)
If Length = -1 Then
Length = Text.Length
End If
Dim Buffer As Byte() = New System.Text.ASCIIEncoding().GetBytes(Text)
Dim Zero As IntPtr = IntPtr.Zero
WriteProcessMemory(OpenGame(), New IntPtr(Address), Buffer, CUInt(Length), Zero)
End Sub
Public Sub WriteInt(Address As Integer, Value As Integer)
Dim buffer As Byte() = BitConverter.GetBytes(Value)
Dim R As IntPtr
WriteProcessMemory(OpenGame(), New IntPtr(Address), buffer, CUInt(4), R)
End Sub
Public Sub WriteUInt(Address As UInteger, Value As UInteger)
Dim buffer As Byte() = BitConverter.GetBytes(Value)
Dim R As IntPtr
WriteProcessMemory(OpenGame(), New IntPtr(Address), buffer, CUInt(4), R)
End Sub
Public Sub WriteFloat(Address As Integer, Value As Single)
Dim buffer As Byte() = BitConverter.GetBytes(Value)
Dim R As IntPtr
WriteProcessMemory(OpenGame(), New IntPtr(Address), buffer, CUInt(4), R)
End Sub
Public Sub WriteBytes(Address As Integer, ByteArray As Byte())
Dim buffer As Byte() = ByteArray
Dim R As IntPtr
WriteProcessMemory(OpenGame(), New IntPtr(Address), buffer, CUInt(buffer.Length), R)
End Sub
#End Region
#Region "Read Stuff"
Public Function ReadString(Address As Integer, Length As Integer) As String
Dim buffer As Byte() = New Byte(Length - 1) {}
Dim R As IntPtr
ReadProcessMemory(OpenGame(), New IntPtr(Address), buffer, CUInt(buffer.Length), R)
Return New System.Text.ASCIIEncoding().GetString(buffer, 0, Length)
End Function
Public Function ReadInt(Address As Integer) As Integer
Dim buffer As Byte() = New Byte(3) {}
Dim R As IntPtr
ReadProcessMemory(OpenGame(), New IntPtr(Address), buffer, CUInt(4), R)
Return BitConverter.ToInt32(buffer, 0)
End Function
Public Function ReadUInt(Address As UInteger) As UInteger
Dim buffer As Byte() = New Byte(3) {}
Dim R As IntPtr
ReadProcessMemory(OpenGame(), New IntPtr(Address), buffer, CUInt(4), R)
Return BitConverter.ToUInt32(buffer, 0)
End Function
Public Function ReadFloat(Address As UInteger) As Single
Dim buffer As Byte() = New Byte(7) {}
Dim R As IntPtr
ReadProcessMemory(OpenGame(), New IntPtr(Address), buffer, CUInt(4), R)
Return BitConverter.ToSingle(buffer, 0)
End Function
Public Function ReadBytes(Address As Integer, BytesLength As Integer) As Byte()
Dim buffer As Byte() = New Byte(BytesLength - 1) {}
Dim R As IntPtr
ReadProcessMemory(OpenGame(), New IntPtr(Address), buffer, CUInt(buffer.Length), R)
Return buffer
End Function
#End Region
#Region "Pointers"
Public Function BaseAddress(Module_Name As String) As Integer
Try
If System.Diagnostics.Process.GetProcessesByName(Game Proc).Length <> 0 Then
For Each [Mod] As System.Diagnostics.ProcessModule In System.Diagnostics.Process.GetProcessesByName(Game Proc)(0).Modules
If [Mod].ModuleName = Module_Name Then
Return [Mod].BaseAddress.ToInt32()
End If
Next
Return 0
Else
Return 0
End If
Catch
Console.WriteLine("Base Address Error")
Return 0
End Try
End Function
Public Function Pointers([Module] As String, PointersX As Integer()) As Integer
Dim Base As Integer = BaseAddress([Module]) + PointersX(0)
Dim Runner As Integer = ReadInt(Base) + PointersX(1)
Dim i As Integer = 2
While i <> PointersX.Length - 2
Runner = ReadInt(Runner) + PointersX(i)
i += 1
End While

Return Runner
End Function
#End Region
End Class

Error 2 Reference to a non-shared member requires an object reference. C:\Users\Getsuga121\Documents\Visual Studio 2010\Projects\Login1\Login1\trainer.vb 95 12 Login1
What now?

Whats the tv show?
and thank you it works now <3

Edit:
title: *********enceException was unhandled
title 2:Object reference not set to an instance of an object.
when i try to use the code