Imports System

Public Module Module1

    Public Sub Main()

        'My Payroll Program

        'Get the hours and payroll from user

        'Determine the Hours & Payrate

        'Calculate Payroll hour * payrate

        'Determin Overtime pay

        Console.WriteLine("Hello User: Albert's Payroll Program Will Get you Hooked")

        Console.WriteLine("Hit Enter To Continue")

        Console.Readline()

        Console.WriteLine("What Is Your Name")

        Dim name= Console.ReadLine()

        Console.WriteLine("Enter Your Hours Worked This Pay Period")

        Dim Hours= Console.ReadLine()

        Console.WriteLine("Enter Your Pay Rate- ")

        Dim Rate= Console.ReadLine()

        Dim pay= Payroll(hours, rate)

        Console.WriteLine(name & "Your Pay= " & pay)

    End Sub

    Private Function Payroll(hours, rate) as Decimal

        If(hours> 40) then

            rate= rate*1.5

            Console.WriteLine("Congrats on making more $Mulah$!")

        End If

        return rate * hours

    End Function

End Module