excel file and throw out email addresses

try this for e-mail addresses in A1:A10

Sub DeleteEMail()
Dim MyString As String
Dim mycell, myrange As Range
Set myrange = Sheet1.Range("A1:A10")
For Each mycell In myrange
MyString = mycell.Value
    If MyString > "" Then
        If Not InStr(MyString, "@") > 1 Then
        mycell.Value = ""
        End If
        If InStr(MyString, ".com.") > 1 Then
        mycell.Value = ""
        End If
        If InStr(MyString, "..com") > 1 Then
        mycell.Value = ""
        End If
        If InStr(MyString, " ") > 1 Then
        mycell.Value = ""
        End If
    End If
Next
End Sub