Public retourgeld As Double
Public temperatur As Integer


Private Sub cmdok_Click()
'Wenn der User auf OK klickt ohne einen Betrag eingibt erscheinit eine entsprechende Meldung
'Ist der eingegebene Betrag kleiner als der Betrag vom Produkt wird der User mit einer Meldung aufgefordert noch einmal einen Betrag einzugeben - Die Temperatur wird bei jedem versuch um eins erhöht
'Ist der Betrag korrekt oder höher als der Preis des Produktes wird das Produkt ausgegeben und das Retourgeld berechnet - Die Temperatur wird bei jeder Getränkeausgabe um 1 erhöht


Dim einzahlung As Variant
einzahlung = txtgeld.Value


If einzahlung = "" Then
 MsgBox ("Sie haben noch keinen Betrag eingegeben")
 getraenkeautomat.txttemperatur.Value = temperatur
ElseIf CInt(einzahlung) < getraenkeautomat.preis Then
 MsgBox ("Sie haben zu wenig Geld eingeworfen. Versuchen Sie es erneut")
 txtgeld = ""
 temperatur = temperatur + 1
 getraenkeautomat.txttemperatur.Value = temperatur
ElseIf einzahlung >= getraenkeautomat.preis Then
 MsgBox ("Das Produkt wurde ausgegeben")
 retourgeld = einzahlung - getraenkeautomat.preis
 geldeinwurf.Hide
 txtgeld = ""
 temperatur = temperatur - 1
 getraenkeautomat.txttemperatur.Value = temperatur
End If

 getraenkeautomat.txttemperatur.Value = temperatur
'MsgBox (einzahlung)
 
'MsgBox (getraenkeautomat.preis)

End Sub

Private Sub UserForm_Initialize()
    temperatur = 10
End Sub