Imports System.IO
Imports System.Net
Imports System.Text
public class MainClass
Shared Sub Main()
Dim address6 As New Uri("gopher://example.yourDomain.com/")
If address6.Scheme = Uri.UriSchemeGopher Then
Console.WriteLine("Uri is Gopher protocol")
End If
End Sub
End Class