TextBox Sorunu

Merhaba arkadaşlar (TOPLAM TUTAR) TextBox1 e küçük rakam girip ve (KDV ORANI) TextBox2 ye KDV oranını yazdığım zaman hesaplama yapıyor. TextBox1 e büyük rakam yazdıktan sonra KDV oranına rakam girdiğim zaman hata veriyor.

Örneğin TextBox1 e 5.000 ve TextBox2 ye %18 yazdığım zaman Hesaplama yapıyor.
TextBox1 e 10.000 ve TextBox2 ye %18 yazdığım zaman hata veriyor.

Private Sub TextBox3_Change()

deg1 = Replace(IIf(TextBox1 = "", 0, TextBox1), ".", ",")

deg2 = Replace(IIf(TextBox3 = "", 0, TextBox3), ".", "")

TextBox4 = Format(Replace(CDbl(deg1) - CDbl(deg2), ".", ","), "#,##0.00")

End Sub

Bu şekilde değiştirip denermisiniz...

Çok teşekkürler hocam ellerinize sağlık. Tam istediğim gibi oldu.