Imports System

Imports System.Net.Mail

Public Module Module1

    Public Sub Main()

        Try

            Dim mailAddress1 As new MailAddress("""BADGER, Tim; Jaix"" <tim@jaix.com.au>")

            Console.WriteLine(mailAddress1.ToString())

        Catch

            Console.WriteLine("Invalid Email Address")

        End Try

    End Sub

End Module