Function ReturnEarliestDate(strInput As String, strDelimiter As String) As Date
Dim varSplit As Variant
Dim i As Integer
Dim dteHold As Date
varSplit = Split(strInput, strDelimiter, , vbTextCompare)
dteHold = varSplit(i)
For i = LBound(varSplit) To UBound(varSplit)...