Çalışmıyor Güncel GP farmer pointerleri

If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", Label1.Text + &H12A5C0, "2114045827")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", Label1.Text + &H12A5C0, "2126546278")
        End If
        If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", Label1.Text + &H121295, "6951147")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", Label1.Text + &H121295, "6951029")
        End If
        If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", Label2.Text + &H2BDD4, "3641198040")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", Label2.Text + &H2BDD4, "3641198041")
        End If
        If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", Label2.Text + &H1F55D, "2251820148")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", Label2.Text + &H1F55D, "2251820149")
        End If
        If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", Label2.Text + &H5714E, "418117253")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", Label2.Text + &H5714E, "410318469")
        End If
        If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", Label2.Text + &H718A5, "1566441904")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", Label2.Text + &H718A5, "1566490674")
        End If
        If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", Label1.Text + &H8EFE3, "2665025140")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", Label1.Text + &H8EFE3, "2665025141")
        End If
        If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", Label1.Text + &H13CCC3, "1301090420")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", Label1.Text + &H13CCC3, "1301090421")
        End If
        If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", Label1.Text + &H197263, "3071218292")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", Label1.Text + &H197263, "3071218293")
        End If
If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", label2.Text + &H4D5AB, "5") 
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", label2.Text + &H4D5AB, "1967244534") 
        End If
    End Sub
If CheckBox1.Checked = True Then
            WriteLong("wolftü.bin", label2.Text + &H4D510, "5")
        End If
        If CheckBox1.Checked = False Then
            WriteLong("wolftü.bin", label2.Text + &H4D510, "1967244534") 
        End If
    End Sub