codice:
    If Weekday(Data) = vbFriday Then
        MsgBox "è venerdì"
    End If