Public Function Datumschleife(ByVal Datum_1 As Date, Datum_2 As Date,
       Optional ByVal WTage As String = "") As String
 
        Dim anzahltage As Long
        Dim starttag As Date
        Dim ergebnis As String
        Dim einzeldatum As Date
        Dim y As Long
        Dim strTage As New System.Text.StringBuilder
 
        ' wenn keine zu zählenden Wochentage angegeben wurden
        ' alle Wochentage berücksichtigen
        If WTage = "" Then WTage = "Mo;Di;Mi;Do;Fr;Sa;So"
 
        ' Anzahl Tage zwischen Datum1 und Datum2 ermitteln
        anzahltage = Microsoft.VisualBasic.DateDiff("D", Datum_1, Datum_2)
 
        ' Beginnen mit Datum1
        starttag = Datum_1
        For y = 0 To anzahltage
            einzeldatum = Microsoft.VisualBasic.DateAdd("d", y, starttag)
            ergebnis = Strings.Left(Strings.Format(einzeldatum, "dddd"), 2) &
                      ", " & Strings.Format(einzeldatum, "dd.MM.yyyy") 
                      'Beachte MM
 
            ' Prüfen, ob ermittelter Wochentag berücksichtigt
            ' werden soll
            If InStr(WTage, Strings.Left$(ergebnis, 2)) > 0 Then
                strTage.Append(ergebnis & ";")
            End If
        Next y
        Return strTage.Remove(strTage.Length - 1, 1).ToString
 
    End Function

 Dim Datum1 As Date = CDate("13.08.2001")
 Dim Datum2 As Date = CDate("29.08.2001")
 
 Dim dt As String = Datumschleife(Datum1, Datum2, "Mo")