Imports System.IO
Imports System.Net
Imports System.Text
public class MainClass
Shared Sub Main()
Dim address3 As New Uri("mailto:user@yourDomain.com?subject=uri")
If address3.Scheme = Uri.UriSchemeMailto Then
Console.WriteLine("Uri is an email address")
End If
End Sub
End Class