TextBox_ID.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 1) = 1 burada koda eklediğiniz fazladan = 1 metin kutusunun değerini değiştiriyor galiba
o satırdaki = 1 kısmını silip dener misiniz?
TextBox_ID.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 1)