çıkarma işleminde kuruşlar gelmiyor

[catalinastrap]

Merhaba Arkadaşlar,
çıkarma işlemi yaparken kuruşlar gelmiyor
mesela 100,5-10= 90,5 gelmesi gerekirken 90 tl geliyor
kodda bir hata yapıyorum sanırım bakabilirmisiniz

If TextBox1 <> 1 Then TextBox2.Value = Val(TextBox1) - Val(st_toplam)
If TextBox1 = "" Then TextBox2 = ""
If TextBox1 <> TexBox2 Then TextBox1 = Format(TextBox1, "#,##0.00" & " TL")
If TextBox1 <> TextBox2 Then TextBox2 = Format(TextBox2, "#,##0.00" & " TL")

 

[catalinastrap]

arkadaşlar bir yardım lütfen!

 

[Civan Jack]

Val yerine CDbl yazın

 

[catalinastrap]

mismach hatası verdi

 

[catalinastrap]

If TextBox1 <> 1 Then TextBox2.Value = CDbl(TextBox1) - CDbl(st_toplam)
If TextBox1 = "" Then TextBox2 = ""
If TextBox1 <> TexBox2 Then TextBox1 = Format(TextBox1, "#,##0.00" & " TL")
If TextBox1 <> TextBox2 Then TextBox2 = Format(TextBox2, "#,##0.00" & " TL")


mismach hatası verdi

 

[catalinastrap]

If TextBox1 <> 1 Then TextBox2.Value = CDbl(TextBox1) - CDbl(st_toplam)
If TextBox1 = "" Then TextBox2 = ""
If TextBox1 <> TexBox2 Then TextBox1 = Format(TextBox1, "#,##0.00" & " TL")
If TextBox1 <> TextBox2 Then TextBox2 = Format(TextBox2, "#,##0.00" & " TL")


mismach hatası verdi

 

[Ziynettin]

Merhaba,
Val yazan kod satırını aşağıdaki şekilde deneyin.

If TextBox1 <> 1 Then TextBox2.Value = Format(TextBox1 - st_toplam, "#,##0.00")

 

[halit3]

Alternatif olarak aşağıdaki kodu denermisiniz.

If TextBox1 <> 1 Then TextBox2.Value = Round(TextBox1, 2) - Round(st_toplam, 2)

 

[catalinastrap]

çok teşekkür ederim