Extracting information from a comma separated list of values in one cell

Give this a shot

Sub abc()
Dim a
Dim b
Dim Pos As Long, EndPos As Long

 a = Split(Cells(1, 3), ",")
 ReDim b(1 To 1, 1 To 2)
 For i = LBound(a) To UBound(a)
    Pos = InStr(1, a(i), "(", vbTextCompare) + 1
    EndPos = InStr(1, a(i), ")")
    If CDate(b(1, 2)) < CDate(Mid(a(i), Pos, EndPos - Pos)) Then
        b(1, 1) = Mid(a(i), 1, Pos - 2)
        b(1, 2) = CDate(Mid(a(i), Pos, EndPos - Pos))
    End If
 Next
 Range("a1:b1") = b
End Sub