Imports System

Public Module Module1

    Public Sub Main()

        Dim Task As String =""

        While task <> "work"

            Console.WriteLine("What are you doing")

            task = Console.ReadLine()

        End While

        Console.WriteLine("congrats your a fat liar")

    End Sub

End Module