Do
                    i = i + 1
                    If i > Len(v) Then Exit Do
                    zasc = Asc(Mid(v, i, 1))
                        If zasc > 47 And zasc < 58 And start = 0 Then
                            start = i
                        End If
 
                        If start > 0 Then
                            If zasc = 32 Then
                                If i + 3 <= Len(v) Then
                                    If Mid(v, i, 2) = "-" Or Mid(v, i, 2) = "/" _
                                      Then
                                        If Asc(Mid(v, i + 3, 1)) > 47 And _
                                        Asc(Mid(v, i + 3, 1)) < 58 Then
                                            i = i + 3
                                            switch = True
                                        Else
                                            Ende = i - 1
                                        End If
                                    End If
 
                                    If i + 1 <= Len(v) Then
                                        If Asc(Mid(v, i + 1, 1)) > 47 And _
                                          Asc(Mid(v, i + 1, 1)) < 58 And Asc( _
                                          Mid(v, i - 2, 1)) > 47 And Asc(Mid( _
                                          v, i - 2, 1)) < 58 Then
                                            Ende = 0
                                            switch = True
                                        End If
                                        If Asc(Mid(v, i + 1, 1)) > 47 And _
                                          Asc(Mid(v, i + 1, 1)) < 58 And Asc( _
                                          Mid(v, i - 1, 1)) > 47 And Asc(Mid( _
                                          v, i - 1, 1)) < 58 Then
                                            Ende = i
                                        End If
                                    Else
                                        Ende = Len(v)
                                    End If
                                Else
                                    Ende = i - 1
                                End If
                                If switch = False Then
                                    Ende = i - 1
                                Else
                                    switch = False
                                End If
                            End If
 
                        If zasc = 45 Then
                            If Mid(v, i + 1, 1) <> " " Then
                                If Asc(Mid(v, i + 1, 1)) > 47 And Asc(Mid(v, _
                                  i + 1, 1)) < 58 Then
                                Else
                                    Ende = i - 1
                                End If
                            End If
                        End If
 
                        If zasc > 47 And zasc < 58 Then
                            If i = Len(v) Then
                                Ende = i
                            Else
                                Ende = 0
                            End If
                        End If
 
                        If Ende > 0 Then
                            datum = Mid(v, start, Ende - start + 1)
                            If InStr(datum, "-") Or InStr(datum, "/") Then
 
                               html = ToolBox.replace(html, "<!-- Projekte" & _
                                 "-->", "<tr><td class=nt WIDTH=35%" & _
                                 "VALIGN=TOP>" & datum & "</td><td" & _
                                 "class=norm WIDTH=65%" & _
                                 "VALIGN=TOP> </td></tr><!-- " & _
                                 rs!Uk_Name_Vorlage & " -->")
                            End If
                            ToolBox.writeFile target, html
                            v = Mid(v, 1, start - 1) & Mid(v, Ende + 1)
                            i = i - start - 1
 
                            start = 0
                            Ende = 0
 
                        End If
 
                End If
   Loop