You could use the GetPart function below:

Function GetPart(N As Integer, S As String, D As String) As String
'   Returns a string from character N to the delimiter D
Dim i As Integer
i = InStr(N, S, D)
If i = 0 Then
   GetPart = ""
Else
   GetPart = Mid$(S, N, i - N)
End If
N = i + Len(D)
End Function

.
.
     N = 2
     Me![LastName] = GetPart(N, Address, "~")
     Me![Addr1] = GetPart(N, Address, "~")
     Me![Telephone] = GetPart(N, Address, "~")
     Me![Fax] = GetPart(N, Address, "~") & " "
     Me![E-mail] = GetPart(N, Address, "~") & " "
.
.

In the example I've used ~ as the delimiter. This could be any character
combination e.g. vbCrLf

MS Access - A legend in it's own time.