IIF

Sub test()
Dim hari As Byte

hari = Weekday(VBA.Date)

MsgBox IIf(hari = 3, "sekarang hari Selasa", "rabu")


End Sub