Try
   Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
   Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)

   Console.WriteLine(("The encoding method used is: " + myHttpWebResponse.ContentEncoding))
   Console.WriteLine(("The character set used is :" + myHttpWebResponse.CharacterSet))

   Dim seperator As Char = "/"c
   Dim contenttype As [String] = myHttpWebResponse.ContentType
   ' Retrieve 'text' if the content type is of 'text/html.
   Dim maintype As [String] = contenttype.Substring(0, contenttype.IndexOf(seperator))
   ' Display only 'text' type.
   If [String].Compare(maintype, "text") = 0 Then
      Console.WriteLine(ControlChars.NewLine + " Content type is 'text'.")
      

	try 
 		  {	
			HttpWebRequest myHttpWebRequest = (HttpWebRequest)WebRequest.Create(url); 
			HttpWebResponse myHttpWebResponse = (HttpWebResponse)myHttpWebRequest.GetResponse(); 

			Console.WriteLine("The encoding method used is: " + myHttpWebResponse.ContentEncoding);
			Console.WriteLine("The character set used is :" + myHttpWebResponse.CharacterSet);

			char seperator = '/';
			String contenttype = myHttpWebResponse.ContentType;
			// Retrieve 'text' if the content type is of 'text/html.
			String maintype = contenttype.Substring(0,contenttype.IndexOf(seperator));
			// Display only 'text' type.
			if (String.Compare(maintype,"text") == 0) 
				{
				Console.WriteLine("\n Content type is 'text'.");

try
{
   HttpWebRequest^ myHttpWebRequest = (HttpWebRequest^)( WebRequest::Create( url ) );
   HttpWebResponse^ myHttpWebResponse = (HttpWebResponse^)( myHttpWebRequest->GetResponse() );

   Console::WriteLine( "The encoding method used is: {0}", myHttpWebResponse->ContentEncoding );
   Console::WriteLine( "The character set used is : {0}", myHttpWebResponse->CharacterSet );

   char separator = '/';
   String^ contenttype = myHttpWebResponse->ContentType;
   // Retrieve 'text' if the content type is of 'text/html.
   String^ maintype = contenttype->Substring( 0, contenttype->IndexOf( separator ) );
   // Display only 'text' type.
   if ( String::Compare( maintype, "text" ) == 0 )
   {
      Console::WriteLine( "\n Content type is 'text'." );