Module Module1 Sub Main() If (Weekday(Now) = vbSaturday) Or (Weekday(Now) = vbSunday) Then System.Console.WriteLine("weekend") Else System.Console.WriteLine("working day") End If End Sub End Module