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