[HELP]trying to do simple trainer for counter-strikesource

Module Module1
    Private Declare Function UVYKKHZISB Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Private Declare Function KHICHRIYPK Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function XMMUNESBWU Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function EZQKZXWUYC Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
    Private Declare Function IFOAUTBZKM Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function ZJHGGCOBCW Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
    Public Declare Function UQZTQHPJUG Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

    Public CVNXRZXNQQ As Long
    Public PEZIQNSYNZ As Single
    Public OKGKFNVEPJ As Integer

    'WriteMemory
    Public Function FSIJKXTNWT(ByVal KKIKERAYCU As Integer, ByVal BSKKIBYHJD As Long, ByVal VDJQLGJWQM As Integer)
        Dim GYLEPVKTQP As Process() = Process.GetProcessesByName("Counter-Strike Source")
        If GYLEPVKTQP.Length = 0 Then
            End
        End If
        Dim CCUYGZAUSA As IntPtr = UVYKKHZISB(&H2051F774, 1, GYLEPVKTQP(0).Id)
        KHICHRIYPK(CCUYGZAUSA, KKIKERAYCU, BSKKIBYHJD, VDJQLGJWQM, Nothing)
        ZJHGGCOBCW(CCUYGZAUSA)
        Return Nothing

    End Function
End Module