Dim oRegExp As Object, oMatch As Object
    Dim strText As String
    Set oRegExp = CreateObject("vbscript.regexp")
    oRegExp.Global = False
    oRegExp.IgnoreCase = True 'kein case sensitive
    oRegExp.MultiLine = False
    ' Hier: Datumsangaben im Bereich 01.01.1900 bis 31.12.2099 zulassen
    oRegExp.pattern = "(0[1-9]|[12][0-9]|3[01])[.](0[1-9]|1[012])[.](" & _
      "19|20)[0-9]{2}"
    Set oMatch = oRegExp.Execute(p.Index.Level0_Index1)
    If (oMatch.Count = 0 Or Len(p.Index.Level0_Index1) <> 10) Then
        ' Fehler
        p.Index.Level0_Index4 = "Date False"
        p.Index.Level0_Index5 = p.Index.Level0_Index1
    Else
        p.Index.Level0_Index4 = "Date True"
        check = "True"
    End If
    Set oRegExp = Nothing
    Set oMatch = Nothing