Private Sub Datum_ValueChanged(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles dtpBis.ValueChanged
 
    If Weekday(Me.dtpBis.Value) = vbFriday Then
      bDat = True
    Else
      bDat = False
    End If
 
    If bDat Then
      Me.dtpVon.Value = Me.dtpBis.Value.AddDays(-5)
    Else
      MessageBox.Show("kein Freitag")
      Exit Sub
    End If
... noch ein paar Kleinigkeiten zu machen
end sub

Nimm die Menschen wie sie sind, den es gibt keine anderen!