Public Function GetURLSourceCode(ByVal psURL As String) As String
      Dim objRequest As HttpWebRequest
      Dim objResponse As HttpWebResponse
      Dim objURI As Uri
      Dim sResult As String
      Dim objEncoding As Encoding
      Dim srReader As IO.StreamReader
 
      psURL = _
        "http://www.koreapost.go.kr/servlet/kpp.eng.PostInfoEng?sc_mode=LIST4&" & _
        "c_value1=Busan&sc_value2=Geumjeong-gu&sc_value3=Seo 2(i)-dong" '<- 
      ' TestURL
      objURI = New Uri(psURL)
 
      objRequest = HttpWebRequest.Create(objURI)
      objRequest.Headers.Add("Accept-Encoding", "gzip,deflate")
      objRequest.Headers.Add("Accept-Language", "euc-kr")
      objRequest.Headers.Add("HTTP_USER_AGENT", "Mozilla/4.0(compatible; MSIE" & _
        "6.0; Windows NT 5.0; .NET CLR 1.0.3705; .NET CLR 1.1.4322)")
      objRequest.ContentType = "text/html; charset=euc-kr"
 
      objEncoding = System.Text.Encoding.GetEncoding(50225)
      objResponse = CType(objRequest.GetResponse, HttpWebResponse)
 
      srReader = New IO.StreamReader(objResponse.GetResponseStream, objEncoding)
 
      sResult = srReader.ReadToEnd
 
      objResponse.Close()
      srReader.Close()
 
      GetURLSourceCode = sResult
   End Function