Detectar formato de fecha en una cadena

[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.