Dim MyWeek, MyDay MyWeek =Array(
"Mon",
"Tue",
"Wed",
"Thu",
"Fri",
"Sat",
"Sun")
' Return values assume lower bound set to 1 (using Option Base ' statement). MyDay = MyWeek(2) ' MyDay contains "Tue". MyDay = MyWeek(4) ' MyDay contains "Thu".