Online OCR из VBA

Private Sub CommandButton1_Click()
 
    link$ = "C:\DesktopScan_0002.jpg"
    Text$ = onlineOCR(link$)
 TextBox1 = Text$
End Sub

Function onlineOCR(ByVal link As String) As String
    On Error Resume Next
    Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
    xmlhttp.Open "POST", "http://www.i2ocr.com/free-online-russian-ocr", "False"
    xmlhttp.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"    ' чтобы избежать кеширования
    Dim POST() As Byte, PostData$
    PostData = PostData & "i2ocr_options=" & RussianStringToURLEncode("url")
    PostData = PostData & "&i2ocr_uploadedfile=" & RussianStringToURLEncode(link)
    PostData = PostData & "&i2ocr_url=" & RussianStringToURLEncode(link)
    PostData = PostData & "&i2ocr_languages=" & RussianStringToURLEncode("ru,rus")
    POST = StrConv(PostData, vbFromUnicode)
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.send (POST): DoEvents
    ff = Val(xmlhttp.Status) ' Ответ приходит 200
    If Val(xmlhttp.Status) <> 200 Then Exit Function
    URL2$ = Split(xmlhttp.responsetext, "$.get(""/")(1)
    URL2$ = "http://www.i2ocr.com/free-online-russian-ocr/" ' & Split(URL2$, """, function")(0)
        xmlhttp.Open "GET", URL2$, "False":    xmlhttp.send: DoEvents
    If Val(xmlhttp.Status) = 200 Then onlineOCR = xmlhttp.responseXML 'Но здесь ответ возвращается пустыс
 
    Set xmlhttp = Nothing
End Function