işlem makrosunda hata yapıyorum

[uguristanbul]

saygıdeger hocam ve arkadaslar
sorun alttaki kod ta sorun var ama bulamıyorum
Private Sub comboBox108_Change()
If ComboBox133 = 0 Then
If ComboBox133 = Empty Then

TextBox32.Value = Format(Val(ComboBox108.Value) * (Val(TextBox7.Value)))

If ComboBox133 <> 0 Then
If ComboBox133 <> Empty Then
TextBox32.Value = Format((val(combox108.value)-(Val(ComboBox108.Value) * (Val(ComboBox133.Value) / 100) )* (Val(TextBox7.Value)))

Private Sub textBox7_Change()
If ComboBox133 = 0 Then
If ComboBox133 = Empty Then

TextBox32.Value = Format(Val(ComboBox108.Value) * (Val(TextBox7.Value)))

If ComboBox133 <> 0 Then
If ComboBox133 <> Empty Then
TextBox32.Value = Format((val(combox108.value)-(Val(ComboBox108.Value) * (Val(ComboBox133.Value) / 100) )* (Val(TextBox7.Value)))
Private Sub comboBox133_Change()
If ComboBox133 = 0 Then
If ComboBox133 = Empty Then

TextBox32.Value = Format(Val(ComboBox108.Value) * (Val(TextBox7.Value)))

If ComboBox133 <> 0 Then
If ComboBox133 <> Empty Then
TextBox32.Value = Format((val(combox108.value)-(Val(ComboBox108.Value) * (Val(ComboBox133.Value) / 100) )* (Val(TextBox7.Value)))

su olmas&#305; gerekli eger combobox133 bos veya o ise textbox7 ile combobox108 i carp&#305;p textbox 32 e yazmal&#305;
ancak combobox133 de deger var ise combobox 133 ile combobox108 i carp&#305;p yuze b&#246;lmeli ve c&#305;kan sonucu textbox 7 ile carp&#305;p texbox32 ye yazmal&#305;
yukarda yazd&#305;g&#305;m sekilde ise mavi hata i&#351;areti end subda duruyor
sayg&#305;lar
anlat&#305;m bozukluklar&#305; icin ozur dilerim