01. Day of Week

Sub DayOfWeek()
    Dim daysArr As Variant
    daysArr = Array( _
    "Monday", _
    "Tuesday", _
    "Wednesday", _
    "Thursday", _
    "Friday", _
    "Saturday", _
    "Sunday")

    Dim num As Integer
    num = 25

    If num >= 1 And num <= 7 Then
        Debug.Print daysArr(num - 1)
    Else
        Debug.Print "Invalid day!"
    End If
End Sub