Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim name As String

        Dim gender As Char

        Console.Write("Enter your name ")

        name = Console.ReadLine()

        Console.Write("Enter your gender ")

        gender = Console.ReadLine()

​

        Dim totCal As Single

        If (gender = "M") Then

            totCal = 2500

        Else

            If (gender = "F") Then

                totCal = 2000

            Else

                totCal = 0

            End If

        End If  

        If totCal > 0

            Dim calories, left As Single

            Console.WriteLine("Enter calories eaten")

            calories = Console.ReadLine()

            left = totCal - calories

            If left > 0 Then

                Console.WriteLine("Amount left:{0} from {1}", left, totCal)

            Else

                If left = 0 Then

                    Console.WriteLine("Stop, you have eaten enough!")

                Else

                    Console.WriteLine("You have overeaten by:{0}", Math.Abs(left))

                End If

            End If

        End If

        Console.ReadLine()

    End Sub

End Module

​