Перевести JAVA в VBA

Формулировка задачи:

Есть на странице скрипт

<script type="text/javascript">/*<![CDATA[*/eval("var a=\"e912gP5dhAYcDaFvHWjotCkL7QSr6BzqUlnIE8uO@T4-m+x.ZsiRGywpN3KMJ0bX_Vf\";var b=a.split(\"\").sort().join(\"\");var c=\"T4mg9MMfaRpmyM1K0\";var d=\"\";for(var e=0;e<c.length;e++)d+=b.charAt(a.indexOf(c.charAt(e)));document.getElementById(\"e198546040\").innerHTML=\"<a href=\\\"mailto:\"+d+\"\\\">\"+d+\"</a>\"")/*]]>*/</script>

Похоже тут есть все необходимые данные что бы извлечь адрес мыла Ошибаюсь?

Решение задачи: «Перевести JAVA в VBA»

textual
                            Листинг программы 
                        

                            Sub bb()
  With CreateObject("ScriptControl")
    .Language = "JScript"
    .AddCode "function eml(){var a='e912gP5dhAYcDaFvHWjotCkL7QSr6BzqUlnIE8uO@T4-m+x.ZsiRGywpN3KMJ0bX_Vf';var b=a.split('').sort().join('');var c='T4mg9MMfaRpmyM1K0';var d='';for(var e=0;e<c.length;e++)d+=b.charAt(a.indexOf(c.charAt(e)));return d}"
    MsgBox .Run("eml")
  End With
End Sub
                        