Распарсить текст

Public Class Form1
    
    Dim a As String = """"
    Dim srav As String = "{" & a & "response" & a & ":[0]}"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strResult As String
        Dim strResult2 As String
        Dim id_messeger As String
        Dim strResult4 As String
        Dim Str As String
        Dim k As Integer
        Dim b As Integer
        Dim chet As Integer
        Dim f As Integer
        Dim c
        Dim Massiv() As String = IO.File.ReadAllLines("D:/222.spy", System.Text.Encoding.UTF8)
        If Massiv(0) = srav Then
            MsgBox("пусто")
        Else
            chet = 10
            f = 10
            For j = 1 To 4
                If f = chet Then 
                    chet = 10
                    f = f + 5
                End If
                Str = Massiv(0)
                For i = 1 To 2000
                    strResult = (Mid$(Str, i, 1))
                    If strResult = a Then k = k + 1
                    If k = chet Then strResult2 = strResult2 & (Mid$(Str, i + 2, 1))
                    id_messeger = Mid$(strResult2, 1, 7)
                Next
                MsgBox(id_messeger)
                If id_messeger = "8915138" Then
                    k = 0
                    chet = chet + 9
                    For i = 1 To 2000
                        strResult = (Mid$(Str, i, 1))
                        If strResult = a Then k = k + 1
                        If k = chet Then strResult2 = strResult2 & (Mid$(Str, i + 1, 1))
                        b = Len(strResult2)
                        c = (Microsoft.VisualBasic.Strings.Left((strResult2), b - 1))
                    Next
                    chet = chet + 9
                    RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "{" & "tema" & "}" & " : " & c
                Else
                    chet = chet + 18
                End If
                'MsgBox(id_messeger)
                ' MsgBox(c)
            Next j
        End If
    End Sub
End Class

 Form3.WebBrowser1.Navigate("https://api.vk.com/method/messages.get?out=0&count=3&user_id=" & Form4.TextBox1.Text & "&access_token=" & Form2.Token)

 
proces.Start("http://vk.com")

 Dim url As String
        Dim r = System.Text.Encoding.GetEncoding(1251).GetString(System.Text.Encoding.UTF8.GetBytes(RichTextBox2.Text))
        url = "https://api.vk.com/method/messages.send?uid=" & Form4.TextBox1.Text & "&message=" & r & "&access_token=" & Form2.Token
        Process.Start(url)

Form3.WebBrowser2.Navigate("https://api.vk.com/method/messages.send?uid=" & Form4.TextBox1.Text & "&message=" & r & "&access_token=" & Form2.Token)

proces.Start("http://vk.com",vbHidden)

   My.Computer.Network.DownloadFile("https://api.vk.com/method/messages.send?uid=" & Form4.TextBox1.Text & "&message=" & r & "&access_token=" & Form2.Token, "D:/output.spy")
 IO.File.Delete("D:/output.spy")