How to create killstreak hack?

'API declarations
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Int32, ByVal bInheritHandle As Int32, ByVal dwProcessId As Int32) As Int32
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32
    Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Int32) As Int32
    'Constants
    Public Const PROCESS_VM_READ = &H10
    Public Const PROCESS_VM_WRITE = (&H20)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_QUERY_INFORMATION = (&H400)
    Public Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_READ + PROCESS_VM_WRITE + PROCESS_VM_OPERATION + PROCESS_QUERY_INFORMATION
    Public Const PROCESS_ALL_ACCESS = &H1F0FFF


    Public Function GetApp() As Long
        Dim TibiaWindows As Process() = Process.GetProcessesByName("*Application Name*") '<<<--- Change this to the happ you want.
        If TibiaWindows.Length = 0 Then
            Return 0
            Exit Function
        End If
        Return TibiaWindows(0).Id
    End Function

   Private Function Memory_ReadLong(ByVal Address As Int32) As Long
        Dim vBuffer As Long
        Dim processHandle As IntPtr = OpenProcess(PROCESS_VM_READ, 0, GetApp)
        ReadProcessMemory(processHandle, Address, vBuffer, 4, 0)
        Return vBuffer
        CloseHandle(processHandle)
    End Function


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        GetApp() '<<<--- Use this to "read" the application
        MessageBox.Show(Memory_ReadLong(&H0)) '<<<--- This to return the value to you. (You add the offset/address there
    End Sub

GetApp()
Dim Kills As Integer = Memory_ReadLong(&H01DAC1FC)
Dim Deaths As Integer = Memory_ReadLong(&H00BDFF30)
Dim K As Integer = 0
Dim D As Integer = 0
Dim KS As Integer = 0

If Kills != K Then 
KS += 1
K = Kills
End If

If Deaths != D Then
KS = 0
D = Deaths
End If