instagram comment multiline

' حط كوكيز حسابك "كوكيز ويب"ـ
Dim full_cookies As String = String.Empty
' حط الـ IDMEDIA حق المنشور
Function cp(text_is) As String
        Dim output_url_en = text_is.Replace(vbCrLf, "%0D%0A").Replace(" ", "+")
        Return output_url_en
    End Function
Function add_cm(ByVal Cookies_is As String, ByVal CommentText As String, ByVal idPOST As String) As Boolean
        Try
            'comment_text=Hi&replied_to_comment_id=
            Using w As New Net.WebClient
                w.Encoding = System.Text.Encoding.UTF8
                w.Headers.Add("Content-Type: application/x-www-form-urlencoded")
                w.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.132 Safari/537.36")
                w.Headers.Add($"X-CSRFToken: {Regex.Match(Cookies_is, "csrftoken=(.*?);").Groups(1).Value}")
                w.Headers.Add("X-Requested-With: XMLHttpRequest")
                w.Headers.Add("Cookie", Cookies_is)
                Dim comment_textis As String = $"comment_text={cp(CommentText)}&replied_to_comment_id="
                Dim textrespon = w.UploadString("https://www.instagram.com/web/comments/" & idPOST & "/add/", "POST", comment_textis)
                If textrespon.Contains("""status"": ""ok""") Then
                    Return True
                Else
                    Return False
                End If
            End Using
        Catch ex As Exception
            Return False
        End Try