Lohn2 IF

Imports System.Console
Module Module1
    Dim Stundenanzahl, Stundenlohn, Gesamtlohn, Faktor As Double
    Sub Main()
        'Eingabe
        Write("Geben Sie den Stundenlohn ein: ")
        Stundenlohn = ReadLine()
        Write("Geben Sie den Stundenanzahl ein: ")
        Stundenanzahl = ReadLine()
        'Verarbeitung
        If Stundenanzahl > 160 Then
            Gesamtlohn = Stundenanzahl * Stundenlohn * 112.5 / 100
        Else
            Gesamtlohn = Stundenanzahl * Stundenlohn
        End If
        Write("Ihr Gesamtlohn lautet: ")
        WriteLine(Gesamtlohn)
        ReadLine()

    End Sub

End Module