Imports System.IO
Imports System.Net
Imports System.Text
public class MainClass
Shared Sub Main()
Dim address5 As New Uri("nntp://news.yourDomain.com/123456@yourDomain.com")
If address5.Scheme = Uri.UriSchemeNntp Then
Console.WriteLine("Uri is nntp protocol")
End If
End Sub
End Class