AddWord WScript.Arguments(0)

Sub AddWord(ByVal TranslWord)
Set a = CreateObject("Lingvo.Application")
a.TranslateText TranslWord
End sub