Çözüldü hatam nedir acaba

Private Sub cmdDEGISTIR_Click()
If ListBox1.ListIndex = -1 Then MsgBox "Değiştirmek için kayıt seçilmedi!", vbExclamation, "Lütfen listeden bir seçim yapın!": Exit Sub
Dim secilen As Integer
secilen = ListBox1.ListIndex + 2

Worksheets("aaa").Range("B" & evn).Value = TextBox1.Value
Worksheets("aaa").Range("C" & evn).Value = TextBox2.Value
Worksheets("aaa").Range("D" & evn).Value = TextBox3.Value
Worksheets("aaa").Range("E" & evn).Value = ComboBox1.Value
Worksheets("aaa").Range("F" & evn).Value = TextBox4.Value
Worksheets("aaa").Range("G" & evn).Value = TextBox5.Value
Worksheets("aaa").Range("H" & evn).Value = TextBox6.Value
Worksheets("aaa").Range("I" & evn).Value = TextBox7.Value
Worksheets("aaa").Range("J" & evn).Value = TextBox8.Value




yaptığım kayıt programından değiştir butonu ekledim ancak kodda bi sıkıntı var yardımcı olurmusunuz acaba ?
ya da değiştirme butonu için ayrı bi kodlamanız var mıdır