Dim i As Integer
For i = 1 To 12
  v = Replace(v, MonthName(i), Format$(i, "00))
Next i

  n = 10
  Do
    For i = 1 To Len(v)
      s = Mid(v, i, n)
      If IsDate(s) Then
        List1.AddItem Format(s, "dd.mm.yyyy")
        v = Left(v, i - 1) + Mid(v, i + n)
        n = 11
        Exit For
      End If
    Next i
    n = n - 1
  Loop While n > 4

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de