Zeilenumbrüche innerhalb einer Zelle werden erfolgen mittels vbLf (LineFeed).

    Dim vntDates As Variant
    
    vntDates = Split(Range("B2").Value, vbLf)

Das würde dann ein (null-basiertes) Array vntDates ergeben, in denen drei Elemente stehen:

"28.10.", "23.11." und "22.11."