Split memo field data into several fields?

[frontside]

I have a number of addresses in a memo field like this.

John Doe
Downer avenue Apt 4
90210 Beverly Hills
USA

how do I split each row into its own field? I have tried the (Len(MemoField) - Len(Replace(MemoField, Chr(13) & Chr(10), ""))) / 2) to get a number of how many enter/breaks there is in the field but how do I use this info to withdraw each row into a seperate field?

Mikael
Sweden

 

[Remou]

You can use Split:

astrMemo = Split(strMemo, (Chr(13) + Chr(10)))
For i = 0 To UBound(astrMemo)
    Debug.Print astrMemo(i)
Next