Cannot find all email addresses without an @ in a text file

[computergroove]

#include <MsgBoxConstants.au3>
#include <array.au3>

$File = FileOpen(@DesktopDir & "\email addresses 11-17-2015.txt")
$aArray = FileReadToArray($File)

For $i=0 To UBound($aArray)-1
    Local $x = StringInStr($aArray[$i],"@")
        If @error Then
            MsgBox(0,0,$aArray[$i] & " on line " & $i+1 & " is not a valid address.")
        EndIf
Next

MSgBox(0,0,"Done")

I have a list of 3600 email addresses and I need to check if there is an @ symbol in the email address. This is my code. I only get a message box with "Done" every time no matter what is in the email list. Here's an example list that I want to msgbox "Tedyahoo.com on line 3 is not a valid address."

Ted@charter.net
Ted@gmail.com
Tedyahoo.com
Ted@AOL.com

 

[water]

"Not found" is returned in the Return value not in @error.

#include <MsgBoxConstants.au3>
#include <array.au3>

$File = FileOpen(@DesktopDir & "\email addresses 11-17-2015.txt")
$aArray = FileReadToArray($File)

For $i=0 To UBound($aArray)-1
    If StringInStr($aArray[$i],"@") = 0 Then MsgBox(0,0,$aArray[$i] & " on line " & $i+1 & " is not a valid address.")
Next

MSgBox(0,0,"Done")

 

[computergroove]

This worked. Thank you.

[water]