Public Function ДатаРожд(ByVal dr As String) As String
    Dim arr, i&, s$
    On Error Resume Next
    arr = Split(dr, Chr(10))
    For i = 0 To UBound(arr)
        s = ""
        s = CDate(Right(Trim$(arr(i)), 10))
        ДатаРожд = ДатаРожд & s & Chr(10)
    Next i
    ДатаРожд = Left(ДатаРожд, Len(ДатаРожд) - 1)
End Function