Çıkarma işlemi hakkında

[thecarow]

Merhaba;
Aşağıdaki makro formülünde işçilik oranı alanını iskonto olarak değiştirmek ve toplama işlemi yerine çıkarma işlemi yapmak istiyorum, konu hakkında destek olabilirmisiniz
Desteğiniz için şimdiden 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