Sub Example()
    Dim days As Variant
    
    days = Array( _
    "Monday", _
    "Tuesday", _
    "Wednesday", _
    "Thursday", _
    "Friday", _
    "Sunday", _
    "Saturday")
    
    Dim n As Integer
    n = 90
    
    If n >= 1 And n <= 7 Then
        Debug.Print days(n - 1)
    Else
        Debug.Print "Invalid!"
    End If
End Sub