current Day finding using Select case

 d=weekday(Date)

Select Case d
   Case 1
     Msgbox "Sleepy Sunday"
   Case 2
     Magbox "Monday again!"
   Case 3
     Msgbox "Just Tuesday!"
   Case 4
     Msgbox "Wednesday!"
   Case 5
     Msgbox "Thursday..."
   Case 6
     Msgbox "Finally Friday!"
   Case Else
     Msgbox "Super Saturday!!!!"
End Select

OutPut:
It will shows Current day.