TextBox'ta Overflow Hatası

[ZuCChiNi]

Private Sub TextBox8_Change()
    TextBox9 = (Val(TextBox5) + Val(TextBox6)) / Val(TextBox8)
End Sub

TextBox5 ve TextBox6'ya sayı giriyorum.

UserForm da kaydet butonuna bastığımda değeri hesaplayıp hem ilgili hücreye hem TextBox9'a yazıyor
ancak "Run-time error 6 - Overflow" hatası veriyor.

Yardım lütfen.

 

[Ömer BARAN]

Merhaba.

sayı / 0 = #SAYI/0! şeklinde hata vereceğine göre;
TextBox8'in 0 veya boş olma durumunu kontrol etmek gerekmez mi sizce?

Örneğin aşağıdaki gibi;
.

If Val(TextBox8) <> 0 Then TextBox9 = Format((Val(TextBox5) + Val(TextBox6)) / Val(TextBox8), "#,##0.00")
If Val(TextBox8) = 0 Then TextBox9 = ""

 

[ZuCChiNi]

Ömer Bey anladığımdan değil maalesef el yordamı ile elimden geleni yapmaya çalışıyorum.
Bu şekli ile oldu.
Çok teşekkür ederim.