Dim Previous_Weekday As Date
Dim Weekday_Name As Integer

Weekday_Name = vbMonday

Previous_Weekday = DateAdd("d", -Weekday(Now) + Weekday_Name, Now)
If Previous_Weekday > Now Then
   Previous_Weekday = Previous_Weekday - Weekday_Name
End If

MsgBox "The last " & WeekdayName(Weekday_Name) & _
   " was on " & Format(Previous_Weekday, "mm/dd/yyyy") & _
   vbCrLf & "Today is " & Format(Date, "dddd") & " " & Date