Sub duschtemperatur()
    Dim start As Integer
    Dim ende As Integer
    Dim duschtemperatur As Integer
    start = 35
    ende = 45

    For i = start To ende
        duschtemperatur = i
        If duschtemperatur > 42 Then
            MsgBox "Temperatur " & duschtemperatur & " ist zu heiss"
            Exit For
        End If
    Next i
    MsgBox "Schleife zu Ende"
End Sub