Hallo zusammen,

ich bin relativ neu im Bereich programmieren und erstelle momentan einen Auto-Konfigurator. Ich höre die ganze Zeit, dass die GoTo-Funktion viel zu veraltet ist und ich lieber ein Unterprogramm schreiben sollte, da dies mit zunehmender Komplexität einfacher ist.
Mein Code ist ziemlich linear und nach jeder weiteren Auswahl steht ein GoTo Line1. Weiß jemand, wie denn ein solches Unterprogramm gestaltet werden könnte? Sorry, falls ich zu wenig Infos angegeben habe. Vielen Dank im Voraus für eine Antwort!





Rem Autoklasse auswählen

autoklasse = InputBox("Welche Autoklasse benoetigen Sie? (Kombi, Kleinwagen, SUV)")
While autoklasse <> "Kombi" And autoklasse <> "Kleinwagen" And autoklasse <> "SUV"
    autoklasse = InputBox("Bitte beachten Sie die zur Verfügung stehenden Autoklassen! (Kombi, Kleinwagen, SUV)")
Wend
    Select Case autoklasse
        Case "Kombi"
            If kaufen_oder_leasing = "s" Then
            aUTO_KLASSE = 30000
            Else: aUTO_KLASSE = 200
            End If
        Case "Kleinwagen"
            If kaufen_oder_leasing = "s" Then
            aUTO_KLASSE = 15000
            Else: aUTO_KLASSE = 100
            End If
        Case "SUV"
            If kaufen_oder_leasing = "s" Then
            aUTO_KLASSE = 40000
            Else: aUTO_KLASSE = 300
            End If
    End Select
End_Preis = aUTO_KLASSE
    If preis_limit < End_Preis Then MsgBox ("Preislimit überschritten.")
    If preis_limit < End_Preis Then GoTo Line1
MsgBox ("Der Grundpreis für diese Autoklasse beträgt " & aUTO_KLASSE & " Euro")