Imports System.IO
Imports System.Net
Imports System.Text
public class MainClass
Shared Sub Main()
Dim address4 As New Uri("news:123456@yourDomain.com")
If address4.Scheme = Uri.UriSchemeNews Then
Console.WriteLine("Uri is an Internet news group")
End If
End Sub
End Class