Function TranslateXml2(strInput As string, Optional strFromLanguageCode As String = "en", Optional strToLanguageCode As String = "tr") As String
   
    Dim strURL As String
    Dim objHTTP As Object
    Dim objHTML As Object
    Dim objDivs As Object, objDiv
    Dim strTranslatedT0 As String
    Dim strTranslatedO1 As String
'Dim objHTTP As MSXML2.XMLHTTP60
    ' send query to web page
    strURL = "https://translate.google.com/m?hl=" & strFromLanguageCode & _
        "&sl=" & strFromLanguageCode & _
        "&tl=" & strToLanguageCode & _
        "&ie=UTF-8&prev=_m&q=" & strInput

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
'Set objHTTP = New MSXML2.XMLHTTP60
    objHTTP.Open "GET", strURL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send ""

    ' create a Html document
    Set objHTML = CreateObject("htmlfile")
    With objHTML
        .Open
        .Write objHTTP.responseText
        .Close
    End With

    ' o1 has Anglicised translation, t0 as tranlsation in target language
    Set objDivs = objHTML.getElementsByTagName("div")

    For Each objDiv In objDivs
        If objDiv.className = "result-container" Then '<== düzenlenen kısım "t0" yerine "result-container" kullanıldı
            strTranslatedT0 = objDiv.innerText & ""
        End If
    Next objDiv
'strTranslatedO1 = IIf(IsNull(strTranslatedO1) Or strTranslatedO1 = "", strTranslatedO1, "(" & strTranslatedO1 & ")")
TranslateXml2 = strTranslatedT0
CleanUp:
    Set objHTML = Nothing
    Set objHTTP = Nothing

End Function