Sub Conferma()
		x=MsgBox("Confermi l'operazione?",260)
		If x=vbNo Then
			window.event.returnValue=false
		End If
	End Sub
	
	Function IsMail(sEmail) 
		Dim objRegExp
		Set objRegExp = New RegExp
		objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z]{2,4}$"
		objRegExp.IgnoreCase = True 
		IsMail = objRegExp.Test(sEmail)
		If Not IsMail Then
			MsgBox "Check e-mail",48
			window.event.returnvalue=false
		End If
	End Function