Find the @
X = InStr(1,SomeField,"@")
Find the following space
Instr(InStr(1,SomeField,"@"),Somefield," ")
Combined to get the trailing part from @ onward
Mid(SomeField,InStr(1,SomeField,"@"),Instr(InStr(1,SomeField,"@"),Somefield,"
") - Instr(InStr(1,SomeField,"@"),Somefield," "))
Use InstrRev in a similar manner to get the leading section.
> hello everyone,
>
[quoted text clipped - 10 lines]
>
> Thanks for your help.