Строка JSON и Visual Basic - как их породнить?

Dim postreponse As HttpWebResponse
postreponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
 
Dim postreqreader As New StreamReader(postreponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd

Dim s() As String
   Dim File As String, CF As String   'объявим пеpеменнyю для имени файла и его cодеpжимого
   File = "c:\t3.txt"   'ycтановим имя файла и пyть
   Open File For Binary As #1   'откpоем файл для чтения
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1   'закpыть файл
   q = """" & ":" & """"
   s = Split(CF, q)
      q = """" & "i" & """"
   For i = 11 To 105
     W = Split(s(i), q)(0)
     Debug.Print Left(W, Len(W) - 3)
   Next i

Private Declare Function MultiByteToWideChar Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
 
Private Const CP_UTF8 As Long = 65001
 
Public Function UTF8ToWin(ByVal inString As String) As String
        Dim hMemLock1   As Long, hMemLock2  As Long
        Dim iStrSize    As Long, lMaxSize As Long, str1 As String, str2 As String
     ' судя по описанию функции, строка должна быть NULL-terminated
        inString = inString & vbNullChar '& vbNullChar
     'Но всё работает и без этого :) Оставил на всякий пожарный
 
        lMaxSize = Len(inString)
        str1 = String$(lMaxSize, 0&)
        str2 = String$(lMaxSize, 0&)
        hMemLock1 = StrPtr(str1)
        hMemLock2 = StrPtr(str2)
 
'        hMemLock1 = LocalAlloc(LMEM_ZEROINIT, lMaxSize)' при этом способе бейсик иногда падал
'        hMemLock2 = LocalAlloc(LMEM_ZEROINIT, lMaxSize)
 
 
        iStrSize = MultiByteToWideChar(CP_UTF8, 0&, inString, &HFFFF, hMemLock1, lMaxSize)
        iStrSize = WideCharToMultiByte(0&, 0&, hMemLock1, &HFFFF, hMemLock2, iStrSize, 0&, 0&)
 
        If Len(iStrSize) Then
        UTF8ToWin = StrConv(str2, vbUnicode)
'            UTF8ToWin = String$(iStrSize, 0&)
'            Call CopyMemory(ByVal UTF8ToWin, ByVal hMemLock2, iStrSize)
        End If
 
'        Call LocalFree(hMemLock1)
'        Call LocalFree(hMemLock2)
End Function

outstring=UTF8ToWin(instring, Len(instring))

Dim postreponse As HttpWebResponse 'переменная для ответа из сервера
postreponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
 
Dim postreqreader As New StreamReader(postreponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd 'записали в строковую переменную
 
My.Computer.FileSystem.WriteAllText("C:\test", thepage, True) 'записали в файл

Dim postreponse As HttpWebResponse 'переменная для ответа из сервера
postreponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
 
Dim postreqreader As New StreamReader(postreponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd 'записали в строковую переменную
 
My.Computer.FileSystem.WriteAllText("C:\test", thepage, True) 'записали в файл

My.Computer.FileSystem.WriteAllText("C:\test", thepage, True, System.Text.Encoding.GetEncoding(1251))

postReq.AutomaticDecompression = DecompressionMethods.GZip