>>>

>>>Function ValidEmail
>>>   Lparameters lcMail
>>>   Local ox, llReturn    <<<<<<---------------------------------------------- 
>>>   If Pcount() > 0 And Vartype(lcMail) = [C]
>>>      ox = Createobject([VBScript.RegExp])
>>>      ox.Pattern = "^([0-9a-zA-Z]+[-._+&])*[0-9a-zA-Z]+@([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$"
>>>      ox.IgnoreCase = .T.
>>>      ox.Global = .F.
>>>      llReturn = ox.Test(lcMail)
>>>      Release ox
>>>      ox = .Null.
>>>   Endif
>>>Return llReturn
>>>

>>>
>>
>>Dangerous code. If ox happens to be a private variable on entry of the function, it will set its value to null
>isn't oX declared LOCAL? so it should not interfere with a higher sciped variable called oX???

It is no longer LOCAL once you release it