Private Sub Command1_Click()
  <font color=green>' Ausgangsdatum</font>
  Dim sDate As Date
  sDate = CDate(Text1.Text)
 
  <font color=green>' Anzahl Arbeitstage, die subtrahiert werden sollen</font>
  Dim iDays As Integer
  iDays = Val(Text2.Text)
 
  <font color=green>' Immer nur ein Tag subtrahieren,
  ' dann prüfen, ob es ein Wochenende ist
  ' wenn ja - einen weiteren Tag subtrahieren
  ' - und das ganze so lange, wie iDays > 0</font>
  While iDays > 0
    sDate = DateAdd("d", -1, sDate)
    If Weekday(sDate) <> vbSunday And Weekday(sDate) <> vbSaturday Then
      iDays = iDays - 1
    End If
  Wend
 
  Label1.Caption = Format$(sDate, "ddd, dd.mm.yy")
End Sub