$iResult = myDiv(5, 0)
If @error Then
	MsgBox(4096, "Ошибка", "Деление на 0 не допустимо")
Else
	MsgBox(4096, "Результат", $iResult)
EndIf
Exit

Func myDiv($iDividend, $iDivisor)
	If $iDividend = 0 And $iDivisor = 0 Then
		SetError(2) ; неопределённая форма 0/0
	ElseIf $iDivisor = 0 Then
		SetError(1) ; обычное деление на 0
	EndIf
	Return $iDividend / $iDivisor
EndFunc