Çıkarma işlemi hakkında

[thecarow]

Merhaba;
Aşağıdaki kodlarda işçilik oranı eklenerek toplama işlemine ait formüller var. Ben bu alanı iskonto alanı olarak değiştirmek ve toplama yerine çıkarma işlemi yapmak istiyorum. Kodlarda hangi alanları değiştirmem gerekiyor
Desteğiniz için teşekkür ederim
Saygılarımla


Private Sub ListBox3_Click()
On Error GoTo 10
'İşçilik oranı seçildiğinde toplam alma
Set s1 = Sheets("Teklif")
say = s1.[a1000].End(3).Row + 1
s1.Range("I8").Select
Adres = Selection.End(xlDown).Address
Toplam = Format(Application.WorksheetFunction.Sum(s1.Range("I8:" & Adres)), "#,##.000")
'işçilik oranı ile toplamın çarpılması ve işçilik tutarının bulunması
TextBox9.Value = Format((CLng(Toplam) * CLng(ListBox3.Value) / 100), "#,##0.00")
Exit Sub
10 MsgBox "Hata!"
End Sub