HelpVb.net Memory Hacking Problem

 
 Dim Tval As String = "20"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Hide()
        System.Threading.Thread.Sleep(6000)
        Dim p As Process = Nothing
        If Process.GetProcessesByName("crossfire").Count > 0 Then
            p = Process.GetProcessesByName("crossfire")(0)
        Else
            MessageBox.Show("crossfire not open!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        Dim Adr As Int32 = &H743AD4
        Try
            If WriteInt32(p, Adr, Tval) Then

            Else
                MessageBox.Show("Writing memory failed!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If
        Catch ex As Exception
            MessageBox.Show("Writing memory failed: " & vbCrLf & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try

    End Sub