What is wrong with this injector

[jokjok123]

Private Function StartIT(ByVal pID As Integer, ByVal StartIITLoc As String) As Boolean
        On Error Resume Next
        Dim Getproces As Integer = DZProce(&H1F0FFF, 1, pID)
        Dim KerMoz As Integer = DZModGet("kernel32.dll") 'JUNK'JUNK


        Dim GetLoadLib = DZGetProc(KerMoz, "LoadLibraryA") 'JUNK

        Dim GetLSBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(StartIITLoc)
        If Getproces = 0 Then Return False
        Dim AllwAddr As Integer = DZVirt(Getproces, 0, GetLSBytes.Length, &H1000, &H4) 'JUNK'JUNK


        If AllwAddr = Nothing Then Return False
        If KerMoz = 0 OrElse GetLoadLib = 0 Then Return False 'JUNK
        'JUNK

        DZWriteProce(Getproces, AllwAddr, GetLSBytes, GetLSBytes.Length, 0)
        Dim LibarlThreaz As Integer = GetRemote(Getproces, 0, 0, GetLoadLib, AllwAddr, 0, 0)

        If LibarlThreaz = 0 Then
            Return False
        Else
            Wait(LibarlThreaz, 5000) 'JUNK

            Handlez(LibarlThreaz)
        End If

        Handlez(Getproces)

        Return True
    End Function