VBA code

In my Outlook To Colum, i have some email recipients

My VB code, expect to read the email address , but it read the name.... how can i change the code so it reading the email address correctly?

My VBA code as below:
------------------------

Code:

---

:
On Error Resume Next
Set Recipients = Item.Recipients
For i = Recipients.Count To 1 Step -1
Set recip = Recipients.Item(i)
If (InStr(LCase(recip), "yahoo.com")) > 0 Then
yahoo_Domain_Count = yahoo_Domain_Count + 1
ElseIf (InStr(LCase(recip), "gmail.com")) > 0 Then
gmail_Domain_Count = gmail_Domain_Count + 1
End if
Next i

---

This works:
https://stackoverflow.com/questions/...eld-in-outlook