Private Sub myDayOfTheWeek()
Dim strDay As String

Select Case Weekday(Text1.Text)
Case vbSaturday
strDay = "Saturday"
Case vbSunday
strDay = "Sunday"
Case vbMonday
strDay = "Monday"
Case vbTuesday
strDay = "Tuesday"
Case vbWednesday
strDay = "Wednesday"
Case vbThursday
strDay = "Thursday"
Case vbFriday
strDay = "Friday"
End Select
MsgBox strDay
End Sub