Ma hai visto la routine WaitWB() che ti ho inviato ??
Perchè l'hai modificata ??
Perchè dopo la riga Loop hai aggiunto quelle due righe ???

Poi ti consiglio di non usare (almeno per ora) l'evento TextChanged ma ti usare un pulsante, e dentro l'evento Click di quel pulsante ci metti
WebBrowser1.Navigate("https://translate.google.it/?hl=it&tab=wT")
WaitWB()
WebBrowser1.Document.GetElementById("source").SetA ttribute("value", TextBox2.Text)

Sergio