Imports System, Microsoft.VisualBasic

'Ryan Kohdong Kumolontang

'11/19/2021

'Wage Caculators

Public Module Module1

    Public Sub Main()

        Dim PayRate As Single

        Dim Hours As Single                'step 1: Declare Variables

        Dim grosspay As Single

        Console.WriteLine("Enter Hourly PayRate")        'Step 2: Input

        PayRate = Console.Readline()

        Console.Writeline("Enter Hours worked: ")

        Hours = Console.Readline()

        If hours <= 40 Then            'step 3: Caculations

            grossPay = hours * PayRate

        ElseIf hours > 40 Then

            grossPay = (hours - 40) * PayRate * 1.5 + 40 * PayRate

        End If 

        Console.writeline("Your Gross pay is: " & FormatCurrency(grossPay))        'step 4: Output

    End Sub

End Module