güncellenmiş halinde kod aşağıdaki gibi düzenlenmeli

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