Pour le faire apparaitre directement dans la textbox en tapant la date au format jj/mm/aa (modifier le Len(TextBox1) = 8 en 10 pour un format jj/mm/aaaa ):
Private Sub TextBox1_Change()
If Len(TextBox1) = 8 And IsDate(TextBox1) = True Then
TextBox1 = WeekdayName(Weekday(TextBox1), False, vbSunday)
End If
End Sub