If Len(Text1.Text) >= 5 Then .... End If.

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
 
        n = 5
        Do
              For i = n To Len(sText) - n
                    s = Mid(sText,i,n)
                    If IsDate(s) Then
                          GetDateString = Format(s,"dd.mm.yyyy")
                           Exit Function
                    End If
              Next
              n = n + 1
          Loop While n<18
 
End Function