Imports System

Public Module Module1

    Public Sub Main()

        Dim what as Boolean = false

        Dim today = DateTime.Now.DayOfWeek.ToString 

        if today = "Friday"  then

            what = true

        end if

        Console.WriteLine("Today: {0}"+ Environment.NewLine + "Evaluation: {1}",today,what)

    End Sub

End Module