###############################################
Function GetDateString(ByVal sText As String) As String
  Dim n As Byte
  Dim i As Long
  Dim s As String
 
  If Len(sText) < 5 Then Exit Function
 
  ' Gehen wir mal davon aus, dass die Schreibweise des Datums völlig 
  ' unterschiedlich sein kann.
  ' Minimal kann damit ein Datum fünf Zeichen haben: 1.2.2, maximal: 31. 
  ' September 2002, also 17 Zeichen.
  ' Enthält der Text also weniger als fünf Zeichen, kann darin kein Datum 
  ' enthalten sein, somit:
  ' If Len(Text1.Text) >= 5 Then .... End If
  ' Es sollen alle Formatmöglichkeiten berücksichtigt werden, die vorkommen 
  ' können. 
  ' Daneben soll das Datum in die gültige einheitliche Schreibweise übersetzt 
  ' werden - sofern ein Datum vorhanden ist.
  ' Ist im Text ein Datum vorhanden, soll dieses in der Schreibweise mm.yy 
  ' zurückgegeben werden.
 
 
  n = 17
  Do
    For i = 1 To Len(sText)
      s = Mid(sText, i, n)
      If IsDate(s) Then
        GetDateString = Format(s, "mm.yyyy")   'Zum Formatieren des Datums
        Exit Function
      End If
    Next
    n = n - 1
  Loop While n > 4
End Function
#############################