Menentukan Hari Sekarang Berdasarkan Angka

Sub test()
Dim hari As Byte

hari = Weekday(VBA.Date)

If hari = 1 Then
MsgBox "Ahad"
ElseIf haari = 2 Then
MsgBox "Senin"
ElseIf hari = 3 Then
MsgBox "Selasa"
Else
MsgBox "rabu"
End If

End Sub