Dim URL As String = TextBox1.Text

    Dim wc As WebClient = New WebClient()



    Dim st As Stream = wc.OpenRead(URL)



    Dim enc As Encoding = Encoding.GetEncoding("Shift_JIS")

    Dim sr As StreamReader = new StreamReader(st, enc)

    Dim html As string = sr.ReadToEnd()

    sr.Close()



    st.Close()