Detectar formato de fecha en una cadena

[robertocorona]

¿Alguien sabe como detectar una fecha no determinada (solo el formato) en una cadena de texto?

Si la cadena fuera:
01/ENE/2007 D00007 5000 001 017 despensas 06/ENE/2007 d/183842

Quiero separar ambas fechas de esa cadena y dejar el resto de la información.

Saludos

[ReViJa]

Hola, te dejo el ejercicio hecho.

Código:

Dim Cadena As String, Fechas As String
Dim x As Integer
Dim Key() As String

Cadena = "01/ENE/2007 D00007 5000 001 017 despensas 06/ENE/2007 d/183842 "
Key = Split(Cadena)
Cadena = ""

For x = LBound(Key) To UBound(Key)
  If IsDate(Key(x)) Then
    Fechas = Fechas & Key(x) & " "
  Else
    Cadena = Cadena & Key(x) & " "
  End If
Next
Debug.Print Cadena
Debug.Print Fechas

Un saludo.