Dim num As Integer = 42
Dim den As Integer = 0
Dim resultOld As Integer
Dim resultNew As Integer

resultNew = If(den <> 0, num \ den, 0) 	' nedochz k chyb
resultOld = IIf(den <> 0, num \ den, 0)	' vjimka kvli dlen nulou
