Imports System

Public Module Module1

    Public Sub Main()

        Dim Profit, cost, Money, staff, Owners, Profit2, Owner1, Owner2, Final, profit3 as decimal

        console.WriteLine("How much did you spend on the product?")

        cost = console.ReadLine()

        console.WriteLine("How much did you make?")

        Money = console.ReadLine()

        console.WriteLine("How many staff are curently Employed?")

        staff = console.ReadLine()

        If Money > cost Then

            staff = console.ReadLine()

        Profit = Money - cost

        Profit2 = Profit / 2 

        Owners = Profit2

        Owner1 = owners / 2

        Owner2 = owners / 2

        Final = Profit2 / staff

        console.WriteLine("4785 = £"& Owner1 &" 4787 = £"& Owner2 &" Staff (per person) = £"& Final)

        ElseIf cost > money Then

            profit3 = money - cost

            console.WriteLine("You made "& profit3)

        End If

    End Sub

End Module