如何在以下的这个按钮里加上这个:实现摁下去之后在C4CEEF位置写一个1 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
IO.File.Delete(RealmListFile) 
IO.File.AppendAllText(RealmListFile, _ 
"set realmlist " & RealmList & vbCrLf & "set patchlist " & PatchList) 
Shell(ExecPath) 
If CheckBox1.Checked = False Then End 
End If End Sub