Public Class CustomException
  Inherits Exception

  Sub New(ByVal Message As String)
    MyBase.New(Message)
  End Sub
End Class

Public Class DivideFunction

  Public Function Divide(ByVal Numerator As Double, _
                         ByVal Denominator As Double) As Double

    If ((Numerator > 1000) Or (Denominator > 1000)) Then
      Throw New CustomException("Licznik i mianownik muszą mieć wartość mniejszą " +
                          "od 1000 lub równą 1000.")
    End If

    Divide = Numerator / Denominator

  End Function

End Class
