Private Const s1 = 21#    'Blattgröße definiert in cm
Private Const s2 = 29.7
 
Private Sub Form_Activate()
   Dim x As Double
   Dim f As Double
   Dim y As Double
   Dim h As Double
   Dim max As Double
   Dim v As Double
 
   ' Wir haben ein Blatt Papier DIN A4 und somit eine gegebene Grundfläche, 
   ' die aber durch das Ausschneiden von 4 Quadraten verkleinert wird. 
   ' Somit mal eine konstante Größe: x 
 
   x = s1 * s2
 
   ' Eine Seite eines Quadrats entspricht der späteren Höhe der Schachtel = h   
   ' Wir brauchen nur noch eine Schleife, die h kontinuierlich um 1 erhöht. For 
   ' ... Next 
   For h = 0.001 To s1 Step 0.001
       ' Eine weitere Größe: y = (h ^ 2) * 4 und (l * b) = x - y 
       y = (h ^ 2) * 4
       f = x - y
       ' Wir haben die Volumenformel: (l * b) * h 
       v = f * h
 
      ' Wir brauchen eine Variable, die den momentan größten Wert speichert. 
      ' If > Then 
       If v > max Then
         max = v
       ElseIf v < max Then
        '  Wir brauchen eine Abbruchbedingung ... Naja ... wenn das Quadrat 
        ' so groß wie die kleinste Seite das Blattes ist ... brauchen wir nicht 
        ' mehr weiter rechnen. 
         Exit For
       End If
   Next
   MsgBox h & " // " & max
End Sub