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