' Kod VB6

Public Function DivideNumber(Numerator As Double, _
                             Denominator As Double) As Double
                             
  If ((Numerator > 1000) Or (Denominator > 1000)) Then
      Err.Raise vbObjectError + 1, _
                "DivideComponent:Divide.DivideNumber", _
                "Licznik i mianownik muszą mieć wartość mniejszą " + _
                "od 1000 lub równą 1000."
                
  End If
  
  DivideNumber = Numerator / Denominator
                             
End Function
