Public Function Datumschleife(ByVal Datum_1 As Date, Datum_2 As Date, Optional _
   ByVal WTage As String = "") As List(Of 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
        Datumschleife = New List(Of String)
 
        ' 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.yy")
            '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
            Datumschleife.Add(ergebnis)
        Next y
        Return Datumschleife
    End Function

Dim l As List(Of String) = Datumschleife("10.02.20", "20.02.20", "")
For Each d As String In l
ListViewTerminübersicht.Items.Add(d)
Next