karışık bir carpma işlemi

[uguristanbul]

sayın hocalarım
aşsagıda yazdıgım kodu calıstıramıyorum;
olması gereken şu:
combo 108 ile combo 133 u (combo133 bosta olabilir 0 da olabilir)carpıp yuze bolecek cıkan sonuc combo108 den cıkarılıp textbox 63 e yazacak
daha sonra textbox63 ile textbox 7 yi carpıp textbox32 ye yazacak(combp108 ve textbox 63 degerleri 0dan sonra 4 haneye kadar gidebilir örn:125,6358 gibi ancak textbox 32 MUTLAKA 125,36 gibi hesaplamal&#305
benim aşagıda yazdıgım kodda combo 133 e deger girersem textbox 63 deki sonuc yalnış cıkıyor ve textbox 32 de 0 dan sonraki kurusları hesaplamıyor
oyleki textbox 32 de kurus cıkarmak icin tıklamak zorunda kalıyorum oysaki textboz32 enable degil disable kullanıcı mudahale edemiyor kodda ne gibi bir degişiklik yapmam gerekli
Private Sub comboBox108_exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox108 = Format(ComboBox108, "#,##0.00")
End Sub
Private Sub combobox108_change()
TextBox63.Value = Format(Val(ComboBox108.Value) - (Val(ComboBox133.Value) * (ComboBox108.Value) / 100))
End Sub

Private Sub comboBox133_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox133 = Format(ComboBox133, "#,##0.00")
End Sub
Private Sub comboBox133_Change()
TextBox63.Value = Format(Val(ComboBox108.Value) - (Val(ComboBox133.Value) * (ComboBox108.Value) / 100))
End Sub
Private Sub TextBox63_exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox63 = Format(TextBox63, "#,##0.00")
End Sub
Private Sub textbox63_change()
TextBox32.Value = Format(Val(TextBox63.Value) * Val(TextBox7.Value))
End Sub
Private Sub textBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7 = Format(TextBox7, "#,##0.00")
End Sub
Private Sub textBox7_Change()
TextBox32.Value = Format(Val(TextBox63.Value) * Val(TextBox7.Value))
End Sub
Private Sub TextBox32_exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox32 = Format(TextBox32, "#,##0.00")
End Sub