Design a new blank query.
Add the relevant table.
In the field column add the query provided by mresann.
IE: Mid(strText, InStrRev(strText, " ", InStr(stremail, "@")) + 1, InStr(InStr(strText, "@"), strText, " ") - InStrRev(strText, " ", InStr(strText, "@")))
You need to replace strText...