Private Sub Command3_Click()
  'Blattgröße definiert in cm
  Const cdblA4B = 21#     'Blattbreite
  Const cdblA4L = 29.7    'Blattlänge
 
  Dim dblV As Double   'Volumen
  Dim dblMV As Double  'Merkzelle für das Maximalvolumen
  Dim dbl_b As Double  'Kantenlänge des auszuschneidenen Quadrates
 
  dblMV = 0#   'Grundeinstellung
 
  'Wir fangen mal mit 0.001 an, da der Wert b=0 Unsinn ist
  'Schrittweite = 0.001 (sonst höhere Genauigkeit verwenden!)
 
  'Dann langsam rantasten
  For dbl_b = 0.001 To cdblA4B Step 0.001
 
      'Volumenformel des resultierenden "Kartons" ohne Deckel ;-)
      'V=LBb - 2(L+B)b² + 4b³
      'Die Klammern können gemäß Punkt vor Strichrechnung auch entfallen,
      'kapseln hier nur bzgl. Übersichtlichkeit
      dblV = (cdblA4L * cdblA4B * dbl_b) - _
             (2 * (cdblA4L + cdblA4B) * dbl_b ^ 2) + _
             (4 * dbl_b ^ 3)
 
      'Wurde ein neues Maximum gefunden?
      If dblV >= dblMV Then
         'wenn ja, merken
         dblMV = dblV
      Else
         'Nein, dann wars das wohl. :-)
         MsgBox "Die max. Kantenlänge des Quadrates beträgt: " & _
                Format(dbl_b, "#0.000 cm") & vbCr & _
                "Das max. Volumen beträgt: " & Format(dblMV, "#0.0000 cm³"), _
                vbOKOnly + vbInformation, "Ergebnis!"
         'Ende
         Exit For
      End If
  Next dbl_b
 
End Sub