Imports System

​

Public Module Module1

    Public Sub Main()

        Dim  money as decimal 

        Dim comment as string 

        Console.Write("enter poket money gastes per week")

        money  = console.ReadLine()

        If money = 0 Then 

         comment  = " You didn’t spend any money. Are you lying?"

        ElseIf  money < 100

            comment  = " Below average. What a good student!  "

        ElseIf  money < 200

            comment = " Average. "

        ElseIf  money > 200

            comment = "Above average. Consider to spend less! "

       ElseIf  money = 200

            comment = "Above average. Consider to spend less! "

        End if 

        Console.WriteLine( "poket money spends per week" )

        Console.WriteLine(comment)

    End Sub

End Module