Imports System, Microsoft.VisualBasic

'Logan Clarken

'Wage Calculator

'11/16/2021

Public Module Module1

    Public Sub Main()

        Dim grossPay As Single      

        Dim hours As Integer        'Declare Variables

        Dim rate As Integer

        Console.WriteLine("Please enter the hours you worked:")     'User Input

            hours= Console.ReadLine()

        Console.WriteLine("Please enter the rate:")     

            rate= Console.ReadLine()

        If hours <= 40 Then

            grosspay = hours*rate

        Else If hours > 40 Then                                     'Calculations

                grossPay = (hours - 40) * rate * 1.50 + (40 * rate)

        End If

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

    End Sub

End Module