VBS код не работает в hta

У меня есть код vbscript здесь:

Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Sub Write
Set oFile = fso.OpenTextFile("Text.txt",8,true)
oFile.close
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "m1.hta"
End Sub

Это сделает текстовый файл и запустит m1.hta, и он отлично работает. Однако, когда я помещаю его в hta файл следующим образом:

<Script Language="VBscript">
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Sub Write
Set oFile = fso.OpenTextFile("Text.txt",8,true)
oFile.close
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "m1.hta"
End Sub
</Script>
<input type="Button" value="GO" onclick="Write">

Кажется, я получаю эту ошибку:

Мой вопрос во-первых, что не так с кодом, а во-вторых, как я его исправить. Заранее спасибо.