Synonyms translation in different languages

Hello. I want to machine translate words, including all of their synonyms. I got the following code working with English to any language, but I can't seem to make it work with other languages (for example: German to English).

Please Login or Register  to view this content.

I was trying to send LanguageID = wdGerman, sourceLang = de, targetLang =en but it didn't work (in fact, it always returns untrue synonyms for some reason)

Any ideas? I don't know how to code in VBA and most of what I got is copy-pasting and educated guesses