Outlook til Access / linje/ hjælp

Hej opretter dette spg igen.
Jeg har importeret fra en mappe jeg kalder bfbs i denne mappe
kommer der bestillinger fra en formular fra en hjemmeside.
(Ikke vores hjemmeside. så jeg har ingen mulighed for at rette i denne)
Når jeg importer e-mail får jeg en masse feltenavne Vigtighed- Ikon -cc - til osv.

Feltnavn Indhold, indeholder de data jeg skal bruge, så jeg laver en forespørgsel på indhold
nu er det så jeg skal have sorteret linjer fra. Det er kun linje
6-7-8 jeg skal bruge

eks. på e-mail
Til xxxxxxxxxxxxxxxxxxxxxxx

Nedenstående kunde ønsker at få materiale tilsendt fra jer:

karbylon nielsen
xxxxxxxxxxxx 6
4000 Roskilde


xxxxxxxxxxxxxxxxxxxxx(x):
"xxxxxxxxxxxxxxxxxxxxxxxxxx.".


xxxxxxxx
xxxxxxx
xxxxxx

xxxxxxxx
xxxxxxxxxx
Med venlig hilsen
xxxxxxxxxxxxx

mail vil altid se sådan ud.
Jeg ved at det kan gøres.
Terry har før hjulpet mig med et ligende problem

eks herunder er terrys
Function FindString(strData As String, strFind As String) As String
Dim StartPos, SlutPos As Integer

On Error GoTo ErrorHandler
StartPos = InStr(1, strData, strFind)          'Finder positionen hvor strFind begynder i strData
StartPos = InStr(StartPos, strData, "-") + 1    'Flyttet startpositionen forbi bindestreg og mellemrum
SlutPos = InStr(StartPos, strData, Chr$(13) & Chr$(10)) 'Find det første linieskift efter startpositionen
If SlutPos = 0 Then SlutPos = Len(strData)
FindString = Mid(strData, StartPos, SlutPos - StartPos) 'Hent streng mellem start og slutposition

Exit Function

ErrorHandler:
    FindString = ""

End Function