[Vitam4lz]

ok da wohl verständlicherweise niemand lust dazu hat^^, beschränk ich meine frage mal auf folgende aufgabenstellung:

Ihre Aufgabe besteht darin, die vorliegenden Programmzeilen durch Unterprozeduren zu ersetzen. Beginnen Sie mit der Aufzeichnung bei „Do“; die Textpassagen können Sie auch kürzen.

Obwohl es bei dieser Aufgabe hauptsächlich um die Struktur geht, sollten Sie auf korrekte Wiedergabe der Zeilen achten.

Private Sub befDialog_Click()
    Dim anzahl As Double
    Dim preis As Double
    Dim ergebnis As Double
    Const VVK = 1.1
    Dim antwort As Integer
    
    ergebnis = 0
    
    Do
         anzahl = Val(InputBox("Bitte geben Sie die Anzahl der Karten ein", "Anzahl Karten"))
         preis = Val(InputBox("Bitte geben Sie den Preis pro Karte an", "Preis eingeben"))
        
         ergebnis = anzahl * preis * VVK + ergebnis
         
         MsgBox "... ergibt insgesamt " & Format(ergebnis, "#,##0.00 €"), , "Gesamtpreis"
         
         antwort = MsgBox("Möchten Sie noch weitere Karten kaufen?", vbYesNo, "Weiter?")
         
    Loop Until antwort = vbNo
End Sub