Dim tmpDir As String = System.Environment.GetEnvironmentVariable("TEMP")
		dim sw as New IO.StreamWriter ( tmpDir + "\CountryCodes.vb", false)
		Dim wc As New Net.WebClient()
		dim url as String = "http://www.iso.org/iso/iso3166_en_code_lists.txt"
		Dim data() As Byte = wc.DownloadData ( url )
		Dim lines() As String = system.Text.Encoding.UTF8.GetString( data ).Split( _
  new String() {System.Environment.NewLine}, StringSplitOptions.None )
		Dim countryName As String = Nothing
		sw.WriteLine ("Option Explicit On")
		sw.WriteLine ("Option Strict On")
		sw.WriteLine ("Class CountryCodes")
		For Each line As String In lines
			If Not line.StartsWith ("This") AndAlso line.Length > 1 Then 
				countryName = line.Split ( New Char() {";"c}) (0)
				countryName = System.Text.RegularExpressions.Regex.Replace(countryName, _
  "[\W+\/*.,'()\\/:?*^""<>|]", "_")
				sw.WriteLine ("		Public Shared ReadOnly Property " + countryName + " AS" & _
"String" )
				sw.WriteLine ("			Get")
				sw.WriteLine ("				Return """ +  line.Split ( New Char() {";"c}) (1) + """") 
				sw.WriteLine ("			End Get")
				sw.WriteLine ("		End Property")
			end if
		Next
		sw.WriteLine ("End Class")
		sw.Close()
		System.Diagnostics.Process.Start ( "notepad.exe", tmpDir + "\CountryCodes.vb")