Intercettare una data all'interno di una stringa?[vb6]

[JamesD]

Potresti fare per esempio:

For i = 0 to ubound(Vet)
    if len(vet(i)) = 6 and isnumeric (vet(i)) then
        data = mid(vet(i),1,2) & "/" & mid(vet(i),3,2) & "/" & mid(vet(i),5,2)
    end if
next