Imports System

Public Module Module1

    Public Sub Main()

        DIm decEmployeeHours As Decimal 

        Dim decHourlyRate As Decimal 

        Dim txtOverTimeInfo as string

        Dim strHourNumber as String

        Dim strHourRate as String

        ConSole.Write("enter a Hour number")

        strHourNumber = Console.ReadLine()

        decHourlyRate = Convert.ToDecimal(StrHourNumber)

        Console.Write("enter a hourly pay")

        strHourRate = Console.ReadLine()

        decEmployeeHours = Convert.ToDecimal(strHourRate)

        If decEmployeeHours > 40  And decHourlyRate < 55 Then     

            txtOverTimeInfo  = "Over time - Eligible-Not eligible"

        else if decHourlyRate > 55  Then    

            txtOverTimeInfo  = "Over time - Egilbile"

        else    

             txtOverTimeInfo = "No comment"

        End If  

        Console.Write(txtOverTimeInfo)

    End Sub

End Module