Imports System

Public Module Module1

    dim hoursWorked As integer

    dim carsProduced As integer

    dim hoursWorth As integer

    dim carsWorth As integer

    dim Total As integer

        Sub Hours()

            'The inputs now

        Console.WriteLine("Please enter the number of hours works")

            Console.WriteLine()

            hoursWorked = Console.ReadLine()

        End Sub

        Sub Cars()

            'The inputs now

        Console.WriteLine("Please enter the number of cars you have produced")

            Console.WriteLine()

        carsProduced = Console.ReadLine()

        End Sub

    Sub Maths()

        'Times thing by worth

        hoursWorth = hoursWorked * 9

        carsWorth = carsProduced * 0.6

        Total = hoursWorth + carsWorth

        Console.WriteLine()

        Console.WriteLine("The wage is equal to £ ")

        Console.WriteLine(Total)

    End Sub

End Module