Public Structure Bruch
     Zähler As Long
     Nenner As Long
End Structure

        Public Function Kürzen(ByVal Bruch As Bruch, ByVal Zahl As Long) As _
          Bruch
            Kürzen.Zähler = Bruch.Zähler / Zahl
            Kürzen.Nenner = Bruch.Nenner / Zahl
            Return Kürzen
        End Function