POST запрос с JSON на VBA

Imports System
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Web
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim myReq As HttpWebRequest
        Dim myResp As HttpWebResponse
 
        myReq = HttpWebRequest.Create("https://api-ip.fssprus.ru/api/v1.0/search/group")
        myReq.Method = "POST"
        myReq.ContentType = "application/json"
        Dim myData As String = "{ \""token\"": \""me4uoiWPZ0ad\"", \""request\"": [ { \""type\"": 1, \""params\"": { \""firstname\"": \""СЕРГЕЙ\"", \""lastname\"": \""СЕМЕНОВИЧ\"", \""secondname\"": \""АНДРЕЯНОВ\"", \""region\"": \""72\"", \""birthdate\"": \""23.5.1988\"" } }, { \""type\"": 1, \""params\"": { \""firstname\"": \""СЕРГЕЙ\"", \""lastname\"": \""ИВАНОВИЧ\"", \""secondname\"": \""АНДРЕЯНОВ\"", \""region\"": \""71\"", \""birthdate\"": \""23.5.1988\"" } } ]}"
        myReq.GetRequestStream.Write(System.Text.Encoding.UTF8.GetBytes(myData), 0, System.Text.Encoding.UTF8.GetBytes(myData).Count)
        myResp = myReq.GetResponse
        Dim myreader As New System.IO.StreamReader(myResp.GetResponseStream)
        Dim myText As String
        myText = myreader.ReadToEnd
    End Sub
End Class