CLEAR TEXT TO lcStr NOSHOW Sales: sales@whatever.com Info: info@whatever.com Support: support@whatever.com ENDTEXT loMatches = ExtractAddresses(lcStr) ? loMatches.Count FOR EACH loMatch IN loMatches ? loMatch.Value ENDFOR RETURN FUNCTION ExtractAddresses LPARAMETERS tcText LOCAL loRegExp, loEmAddrList loRegExp = CreateObject("VBScript.RegExp") loRegExp.IgnoreCase = .T. loRegExp.Global = .T. loRegExp.Pattern = '(\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,9})' loEmAddrList = loRegExp.Execute(tcText) RETURN loEmAddrList>Just curiousity, what properties does loEmAddrList have?