Email Validation Lookup (VBA)

I have a workbook with two sheets. In first sheet(Data), there are three columns. In first (E-mail) there are random emails and program must check if email is correct and write it in column 2 or incorrect and write it in column 3.

What I need is to lookup also the domain extension if it is correct. I have domain extension written in sheet2 (DomainExt) and I need program to compare with sheet1(Data).

So: example@gmail.com (correct)
example@gmail.coS (incorrect)

Code:
Sub email()
Dim txtEmail As String
Dim rng As Range
Set rng = Selection

i = 2
For Each cell In rng
txtEmail = cell.Value

[Code] ........