ник: Scorpi
Этим и занималась, вот что получилось (сравнения на max нет)
все даты из строки в массив
dat = rs.Fields("НазвПоля)
dl = Len(dat)
pos = 0
Do While dl > 0
ReDim Preserve arr_date(pos + 1)
arr_date(pos) = Mid(dat, InStr(dat, "200") - 6, 10)
dat1 = Right(dat, Len(dat) - (InStr(dat, "200") + 3))
dl = Len(dat1)
dat = dat1
pos = pos + 1
Loop
первое попадание :
dat = Mid(rs.Fields("НазвПоля"), InStr(rs.Fields("НазвПоля"), "200") - 6, 10)