Hello there! The error you are facing is most probably due to VBA unable to convert your text string into a double formatted variable using Cdbl function. Perhaps using the DateValue will help you achieve your goal!
Try using the below code.... i only made slight modifications to your original code
Sub FindMin() Sub FindMin() Dim s As String, CH As String Dim wf As WorksheetFunction Dim bry() As Double Dim ary As Variant Dim i As Integer Set wf = Application.WorksheetFunction s = ActiveCell.Text CH = Chr(10) ary = Split(s, CH) ReDim bry(LBound(ary) To UBound(ary)) For i = LBound(ary) To UBound(ary) bry(i) = DateValue(ary(i)) Next i MsgBox Format(wf.Min(bry), "dd/mm/yyyy") End Sub
MODERATOR NOTE: please don't quote whole posts.