Imports System, Microsoft.VisualBasic

'Logan Reisbord

'Wage Calculator Program 

'11/16/21

Public Module Module1

    Public Sub Main()

        Dim hourPay as Single

        Dim hours as Single                                         'Declare Variables

        Dim grossPay as Single

        console.WriteLine("Enter hourly pay rate: ")

        hourPay = console.ReadLine()

        console.WriteLine("Enter hours worked: ")                           'User Input

        hours = console.ReadLine()

        If hours > 40 Then 

            grossPay = (40 * hourPay) + (hours mod 40) * (hourPay * 1.5)            'Calculations 

        ElseIf hours <= 40 Then

            grossPay = hours * hourPay

        End If

        Console.WriteLine("Your gross pay is: " & formatCurrency(grossPay))         'Output

    End Sub

End Module