Translate text from French to English

Hello, I am looking for a macro which will translate text from French to english. In my excel, text is available from B6 to down and I need translated text from C6 to down. I am using Excel 2016. So can some one help me.
I was using below macro but recently it is throwing error that "unable to get the webservice property of the worksheet function class".
So can some one help me to fix this error. Or Help me with another code.

Function Translate$(sText$, FromLang$, ToLang$)

Dim p1&, p2&, url$, resp$

Const DIV_RESULT$ = "<div class=""result-container"">"

Const URL_TEMPLATE$ = "https://translate.google.com/m?hl=[from]&sl=[from]&tl=[to]&ie=UTF-8&prev=_m&q="

url = URL_TEMPLATE & WorksheetFunction.EncodeURL(sText)

url = Replace(url, "[to]", ToLang)

url = Replace(url, "[from]", FromLang)

resp = WorksheetFunction.WebService(url)

p1 = InStr(resp, DIV_RESULT)

If p1 Then

p1 = p1 + Len(DIV_RESULT)
p2 = InStr(p1, resp, "</div>")

Translate = Mid$(resp, p1, p2 - p1)

End If

End Function

Sub trans_click()
Dim finrow As Integer
Dim frstring, engstring As String

finrow = Sheets("Input").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("Input").Range("C6").End(xlDown).Clear
For i = 6 To finrow

frstring = Sheets("Input").Cells(i, 2)


engstring = Translate(Sheets("Input").Cells(i, 2), "fr", "en")
Sheets("Input").Cells(i, 3) = engstring

Next i

MsgBox ("Translation completed!!")

End Sub

Thanks for your quick reply. I have used code as below but getting error that "An error occurred in secure channel support".

Function GTranslate(strInput As String, strFromLang As String, strToLang As String) As String
Dim strURL As String, objHTTP As Object, objHTML As Object, objDivs As Object, objDiv As Variant

strInput = WorksheetFunction.EncodeURL(strInput)
strURL = "https://translate.google.com/m?hl=" & strFromLang & _
"&sl=" & strFromLang & _
"&tl=" & strToLang & _
"&ie=UTF-8&prev=_m&q=" & strInput

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "GET", strURL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.Send ""
Set objHTML = CreateObject("htmlfile")
With objHTML
.Open
.Write objHTTP.responseText
.Close
End With
Set objDivs = objHTML.getElementsBytagName("DIV")
GTranslate = objHTML.getElementsByClassName("result-container")(0).innertext
Set objHTML = Nothing: Set objHTTP = Nothing
End Function

Sub trans_click()
Dim finrow As Integer
Dim frstring, engstring As String

finrow = Sheets("Input").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("Input").Range("C6").End(xlDown).Clear
For i = 6 To finrow

frstring = Sheets("Input").Cells(i, 2)


engstring = GTranslate(Sheets("Input").Cells(i, 2), "fr", "en")
Sheets("Input").Cells(i, 3) = engstring

Next i

MsgBox ("Translation completed!!")

End Sub

Not sure. But https://translate.google.com ink is accessible through Internet browser. Any other way for translation? While checking I got one excel sheet for translator. But it shows error that ""The code in this project must be updated for use on 64-bit systems. Please review and update declare statement and then mark them with PtrSafe attribute." I have attached that excel sheet. I am using 32-bit system and 2016 excel. Please help such type excel is possible.

This works for me.

 Function googletranslate(strSourceText As String, strSourceLangCode As String, strTargetLangcode As String) As String
    Dim p1&, p2&, url$, resp$
    Const DIV_RESULT$ = "<div class=""result-container"">"
    Const URL_TEMPLATE$ = "https://translate.google.com/m?hl=[from]&sl=[from]&tl=[to]&ie=UTF-8&prev=_m&q="
    url = URL_TEMPLATE & WorksheetFunction.EncodeURL(strSourceText)
    url = Replace(url, "[to]", strTargetLangcode)
    url = Replace(url, "[from]", strSourceLangCode)
    resp = WorksheetFunction.WebService(url)
    p1 = InStr(resp, DIV_RESULT)
    If p1 Then
        p1 = p1 + Len(DIV_RESULT)
        p2 = InStr(p1, resp, "</div>")
        googletranslate = Mid$(resp, p1, p2 - p1)
    End If
End Function

Hello,

a sample in this thread ...

Hi Marc. Thanks for reply. But how to use for my requirement...like in my case, on sheet 1, French text is in column B and I want to convert those text on same sheet 1 in column C in English.
Code available in your provided thread is little bit complicated for me to modify as per my requirement since I just know only basic. Please help.

Hello, Can someone help me?