مشكله في تهنيج البرنامج - نسخة قابلة للطباعة

كود :
       Dim aa As String = webClient.DownloadString("https://graph.facebook.com/v2.9/" + TextBox23.Text + "/comments?access_token=" + TextBox7.Text + "&fields=id,from&limit=100000")

            TextBox3.Text = (aa)

            Dim da As String

            da = TextBox3.Text

            TextBox3.Text = TextBox3.Text.Replace("\u0040", "@").Replace("\u0630", "ذ").Replace("\u0636", "ض").Replace("\u0635", "ص").Replace("\u062b", "ث").Replace("\u0642", "ق").Replace("\u0641", "ف").Replace("\u063a", "غ").Replace("\u0639", "ع").Replace("\u0647", "ه").Replace("\u062e", "خ").Replace("\u062d", "ح").Replace("\u062c", "ج").Replace("\u062f", "د").Replace("\u0634", "ش").Replace("\u0633", "س").Replace("\u064a", "ي").Replace("\u0628", "ب").Replace("\u0644", "ل").Replace("\u0627", "ا").Replace("\u062a", "ت").Replace("\u0646", "ن").Replace("\u0645", "م").Replace("\u0643", "ك").Replace("\u0637", "ط").Replace("\u0626", "ئ").Replace("\u0621", "ء").Replace("\u0624", "ؤ").Replace("\u0631", "ر").Replace("\u0644\u0627", "لا").Replace("\u0649", "ى").Replace("\u0629", "ة").Replace("\u0648", "و").Replace("\u0632", "ز").Replace("\u0638", "ظ").Replace("\u002f", " ").Replace("\u005f", "_").Replace("\u002d", "-").Replace("\u002e", ".").Replace("\u0623", "أ").Replace("\u061f", "؟").Replace("\u0622", "آ").Replace("\u0640", "ـ").Replace("\u00e1", "á").Replace("\u0625", "إ").Replace("\u0662", "٢").Replace("\u06f1", "۱").Replace("\u06f0", "۰").Replace("}", "").Replace("\u0664", "٤").Replace("\u0665", "٥").Replace("\u0666", "٦").Replace("\u0667", "٧").Replace("\u06f8", "۸").Replace("\u06f9", "۹").Replace("},{", "" & vbNewLine).Replace("\", "").Replace("{""data"":[{", "").Replace("}],""paging"":{""cursors"":{", "" & vbNewLine).Replace("\u2022", "•").Replace("\u2022", "•").Replace("from"":{", vbNewLine).Replace(",""id"":""", vbNewLine & """idus"":""").Replace(",{", vbNewLine).Trim("""id"":""", "")

            ListBox1.Items.AddRange(TextBox3.Text.Split(vbNewLine).ToArray)





            Dim member_id = System.Text.RegularExpressions.Regex.Matches(TextBox3.Text, "name"":""(.+)""")

            For Each txt As System.Text.RegularExpressions.Match In member_id

                If ListBox12.FindStringExact(txt.Groups(1).Value) = -1 Then

                    ListBox12.Items.Add(txt.Groups(1).Value)

                End If

            Next

            Dim member_id0 = System.Text.RegularExpressions.Regex.Matches(TextBox3.Text, """idus"":""(.+)""")

            For Each txt As System.Text.RegularExpressions.Match In member_id0

                If ListBox13.FindStringExact(txt.Groups(1).Value) = -1 Then

                    ListBox13.Items.Add(txt.Groups(1).Value)

                End If

            Next