How to catch errors from Google Translate

Hi,
I have created a macro translator (using help from this forum, so thanks) - a basic background is it reads through a number of rows in Column A, translates and puts the output in Column B. Basic but effective. It worked fine last week, I've not changed the code but now it's just returning blank data in Column B - I need to be able to check the return code/error code returned from the google translate and display a message if there's a problem but I've no idea how to do this - I've included the code in case it's any use......

Sub translate()

' Translate from any language to English. To alter output language, change outputstring

Dim ie As Object, ii As Long
Dim inputstring As String, outputstring As String, text_to_convert As String, result_data As String, CLEAN_DATA
Set ie = CreateObject("InternetExplorer.application")

'   TO CHOOSE INPUT LANGUAGE

    inputstring = "auto"

'   TO CHOOSE OUTPUT LANGUAGE

Dim strName As String
    strName = InputBox(Prompt:="Select Output Language", Title:="Please select Language", Default:="English")
    If strName = "English" Or strName = vbNullString Or strName = "english" Then
       outputstring = "en"
    Else
    Select Case strName
        Case "French", "french"
            outputstring = "fr"
        Case "Hungarian", "hungarian"
            outputstring = "hu"
        ..... etc whole list of languages........
        Case Else
            outputstring = "en"
    End Select
    End If


Dim Found As Range
Dim LR As Long, i As Long
    
    With Sheets("Sheet1")
        
    LR = .Range("A" & Rows.Count).End(xlUp).Row

        For i = 1 To LR
            text_to_convert = Sheets("Sheet1").Range("A" & i).Value
'1250 is max characters for google translate
             If Len(text_to_convert) < 1250 Then
'open website

            ie.Visible = False
            ie.navigate "http://translate.google.com/#" & inputstring & "/" & outputstring & "/" & text_to_convert

            Do Until ie.ReadyState = 4
'ReadyState 4 = request is complete
               DoEvents

            Loop

            Application.Wait (Now + TimeValue("0:00:1"))

            Do Until ie.ReadyState = 4
               DoEvents
            Loop
            
            CLEAN_DATA = Split(Application.WorksheetFunction.Substitute(ie.Document.getElementById("result_box").innerHTML, "</SPAN>", ""), "<")
        result_data = ""

            For ii = LBound(CLEAN_DATA) To UBound(CLEAN_DATA)
                result_data = result_data & Right(CLEAN_DATA(ii), Len(CLEAN_DATA(ii)) - InStr(CLEAN_DATA(ii), ">"))
            Next
                Sheets("Sheet1").Range("B" & i).Value = ""
                Sheets("Sheet1").Range("B" & i).Value = result_data
            Else
                Sheets("Sheet1").Range("B" & i).Value = ""
                Sheets("Sheet1").Range("B" & i).Value = "TOO LARGE TO CONVERT - OVER 1250 CHARACTERS"
            End If
          
          Next i
   
   End With
   ie.Quit

'End Function
End Sub

I'm using the following test data in an excel spreadsheet:

Verbatim
I love this products but price is to high
product ruined my marble worksurface
dishwasher tablets are ruining my dishes
Verbraucher kritisiert geändertes Produkt.
Produkt muss mehrfach aufgetragen werden. Riecht nach Katzenurin.
Riecht nach Duftstein!
VB gefällt der Sprühnebem vom Produkt nicht.
allergische Reaktion durch feinen Sprühnebel
ich bekomme Atembeschwerden!
Funktionert nicht
Vb'in schreibt dass das Viss Produkt sie nicht überzeugen konnte.
Ein permanentes Drehen des WC-Steins ist n. mögl. Verfärbungen Toilettenrand.
Jetzige Flasche riecht anders und ist wässriger.





Any help would be much appreciated as I'm supposed to be presenting this to my boss soon and I've told him it works!
Cheers
MrsMac

Hi Bernie,
Thanks very much for taking the time to test this out - much appreciated. I've just tried it from scratch and run the debugger while doing it and it seems I'm getting a subscript out of range error on the UBound(CLEAN_DATA) having a value of -1, but I must admit to being a bit out of my depth now!

For ii = LBound(CLEAN_DATA) To UBound(CLEAN_DATA)
                result_data = result_data & Right(CLEAN_DATA(ii), Len(CLEAN_DATA(ii)) - InStr(CLEAN_DATA(ii), ">"))
            Next
                Sheets("Sheet1").Range("B" & i).Value = ""
                Sheets("Sheet1").Range("B" & i).Value = result_data

This is while translating the first "Verbatim" comment - how can I tell if I'm actually getting something returned from the translator in 'CLEAN_DATA' because I can't seem to see it using the debugger......

      CLEAN_DATA = ""
            CLEAN_DATA = Split(Application.WorksheetFunction.Substitute(ie.Document.getElementById("result_box").innerHTML, "</SPAN>", ""), "<")

Hi, This is what I get - Capture.PNG

Can you see that attachment ok?
Could there be a limit on the number of translations allowed or something daft like that? Since my code works for you, but doesn't work for me or anyone in my office, I'm starting to think it's something environmental here (or am cursed, one of the two!)......
Does the call to the application have a return code I can check maybe? how can I find that out? (Sorry this is my first venture into non-mainframe coding so am a bit out of touch!)
Thanks

Since you're violating google T&Cs and they charge for this, I suspect that they are applying restrictions. If you wish to use this commercially as you are doing then take a look at the unrestricted api here - along with pricing https://developers.google.com/translate/v2/pricing