textbox lar arası dört işlemde format sorunu

[yilmazberkan]

merhaba Ek'li dosyada görüdünüz gibi
textboxlar arası dört işlem yaparken format sorunu ile karşılaşıyorum.
bunu nasıl çözebilirim.
bilgisi olan arkadaşlardan destek bekliyorum.
iyi günler dilerim.


kodlamalar;
1-
Sub Uretimtoplamtuketim1()
a = Text14.Text
b = Text27.Text
c = Text40.Text
d = (a + b) - c

Text53.Text = Format(d, "#,##0.00")

End Sub


2-
Sub Uretimtoplamtuketim2()
a1 = Text15.Text
b1 = Text40.Text
c1 = Text41.Text
d1 = a1 + b1 - c1 ------- burda hata veriyor

Text54.Text = Format(d1, "#,##0.00")


End Sub

3-
Sub Uretimtoplamtuketim2()


Text54.Text = Format(Val(Text15.Text) + Val(Text28.Text) - Val(Text41.Text), "#,##0.00")

End Sub