overflow hatası

[atrixum]

arkadaşlar lütfen yardım edin aşağıdaki kodda overflow hatası alıyorum lakin bi türlü çözemedim sorunu

CfreOran.Value = (Val(CbrtKg) - Val(CnetKg)) / (Val(CbrtKg))
CfreOran.Value = Format(CfreOran, "0,0%")

yardımlarınız için şimdiden teşekkürler