Imports System

Public Module Module1

    Public Sub Main()

        dim ans as string

        Console.WriteLine("what day is it?")

        ans =console.ReadLine()

        console.Writeline(ans)

        if ans = "monday" then

            console.WriteLine("there is a game today.")

        else

            console.WriteLine("there is no game today.")

        end if

    End Sub

End Module