dim key : key = "trnsl.1.1.20160315T113859Z.e5da621f9cb47012.70606fe5da1569ba2843c981a425502d280 178ba"

dim cText : cText = "I have two eyes and I can see a book, a pen in front of me"
dim lang  : lang   = "en-ru"

MsgBox(translate(cText, "en-ru"))

public function translate(AText, ALang)
dim url : url = "https://translate.yandex.net/api/v1.5/tr/translate?key=" & key
url = url & "&text=" & AText & "&lang=" & ALang
dim xdom : set xdom = CreateObject("MSXML2.DOMDocument")
xdom.async = false
if xdom.load(url) then
 call xdom.save("answer.xml")
 translate = get_xpath_value(xdom,"//text")
end if
set xdom = nothing
end function

function get_xpath_value(ByVal ANode, ByVal AXPathExpr)
get_xpath_value = ""
if not (ANode is nothing) then
 dim inode : set inode = ANode.selectSingleNode(AXPathExpr)
 if not (inode is nothing) then
  if (inode.nodeType = 2) then
   get_xpath_value = inode.nodeValue
  else
   get_xpath_value = inode.Text
  end if
 end if
end if
end function