Парсер данных с сайта и запись в XML

        Dim R() As String = {"mapwidth, mapheight"}
        Dim L() As String = {"}];"}
        Dim myHttpWebRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://ru.aiondatabase.com/npc/213270/")
        Dim myHttpWebResponse As Net.HttpWebResponse = myHttpWebRequest.GetResponse()
        Dim myStreamReader As New IO.StreamReader(myHttpWebResponse.GetResponseStream, System.Text.Encoding.GetEncoding(1251))
        Dim Str As String = myStreamReader.ReadToEnd()
        Dim Tmp As String = Str.Split(R, StringSplitOptions.None)(1)
        Dim Res As String = R(0) & Tmp.Split(L, StringSplitOptions.None)(0) & L(0)
        TextBox1.Text = Res

My.Computer.FileSystem.WriteAllText("Парсер.xml", TextBox1.Text, False, System.Text.Encoding.GetEncoding(1251))

        For I As Integer = 213270 To 213288
            Dim R() As String = {"mapwidth, mapheight"}
            Dim L() As String = {"}];"}
            Dim myHttpWebRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://ru.aiondatabase.com/npc/" & I & "/")
            Dim myHttpWebResponse As Net.HttpWebResponse = myHttpWebRequest.GetResponse()
            Dim myStreamReader As New IO.StreamReader(myHttpWebResponse.GetResponseStream, System.Text.Encoding.GetEncoding(1251))
            Dim Str As String = myStreamReader.ReadToEnd()
            Dim Tmp As String = Str.Split(R, StringSplitOptions.None)(1)
            Dim Res As String = R(0) & Tmp.Split(L, StringSplitOptions.None)(0) & L(0)
            TextBox1.Text &= "Якобы распарсено со страницы " & I & vbCrLf & Res & vbCrLf & "===============================================" & vbCrLf
        Next

Dim Tmp As String = Str.Split(R, StringSplitOptions.None)(1)

        For I As Integer = 213270 To 213288
            Dim R1() As String = {"mapwidth5, mapheight"}
            Dim R2() As String = {"Вторая строка"}
            Dim R3() As String = {"Третья"}
            Dim L() As String = {"}];"}
            Dim myHttpWebRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://ru.aiondatabase.com/npc/" & I & "/")
            Dim myHttpWebResponse As Net.HttpWebResponse = myHttpWebRequest.GetResponse()
            Dim myStreamReader As New IO.StreamReader(myHttpWebResponse.GetResponseStream, System.Text.Encoding.GetEncoding(1251))
            Dim Str As String = myStreamReader.ReadToEnd()
            If InStr(Str, R1(0)) <> 0 Then
                Dim Tmp As String = Str.Split(R1, StringSplitOptions.None)(1)
                Dim Res As String = R1(0) & Tmp.Split(L, StringSplitOptions.None)(0) & L(0)
                TextBox1.Text &= "Якобы распарсено со страницы " & I & vbCrLf & Res & vbCrLf & "===============================================" & vbCrLf
            Else
                TextBox1.Text &= "На странице " & I & " не найдено искомое вхождение. Ща попробуем с другим..." & vbCrLf
                If InStr(Str, R2(0)) <> 0 Then
                    Dim Tmp As String = Str.Split(R2, StringSplitOptions.None)(1)
                    Dim Res As String = R2(0) & Tmp.Split(L, StringSplitOptions.None)(0) & L(0)
                    TextBox1.Text &= "Якобы распарсено со страницы " & I & vbCrLf & Res & vbCrLf & "===============================================" & vbCrLf
                Else
                    TextBox1.Text &= "На странице " & I & " не найдено и второе искомое вхождение. Ща попробуем третье..." & vbCrLf
                    If InStr(Str, R3(0)) <> 0 Then
                        Dim Tmp As String = Str.Split(R3, StringSplitOptions.None)(1)
                        Dim Res As String = R3(0) & Tmp.Split(L, StringSplitOptions.None)(0) & L(0)
                        TextBox1.Text &= "Якобы распарсено со страницы " & I & vbCrLf & Res & vbCrLf & "===============================================" & vbCrLf
                    Else
                        TextBox1.Text &= "На странице " & I & " не найдено даже третье вхождение..." & vbCrLf
                    End If
                End If
            End If
        Next

Dim L() As String = {"}];"}

        TextBox1.Text = "Какое бы слово удалить"
        MsgBox("Записали строку")
        TextBox1.Text = TextBox1.Text.Replace(" бы", "")
        MsgBox("Удалили слово БЫ")
        TextBox1.Text = TextBox1.Text.Replace("слово", "словечко")
        MsgBox("Заменили СЛОВО на СЛОВЕЧКО")

TextBox1.Text = TextBox1.Text.Replace(""Какое""бы слово удал"ить""", "")

        MsgBox("Hello, "" WORLD """"", MsgBoxStyle.Information)

System.Text.Encoding.GetEncoding(myHttpWebResponse.CharacterSet)

   Dim R() As String = {"mapwidth, mapheight"}
        Dim L() As String = {"}];"}
 
        Dim cl As New Net.WebClient
        Dim Str As String = cl.DownloadString("http://ru.aiondatabase.com/npc/213270/")
 
        Dim Tmp As String = Str.Split(R, StringSplitOptions.None)(1)
        Dim Res As String = R(0) & Tmp.Split(L, StringSplitOptions.None)(0) & L(0)
        TextBox1.Text = Res

 TextBox1.Text = TextBox1.Text.Replace("аа", "юа ")
 TextBox1.Text = TextBox1.Text.Replace("бб", "бт")