Imports System
Imports System.Net.Mail
Public Class Program
Public Shared Sub Main()
Dim email As MailAddress = New MailAddress("username@email.com")
Dim domain_name As String = email.Host
Console.Write(domain_name)
End Sub
End Class
' run:
'
' email.com
'