@SHOW
@C:red(F12 で開発者ツールを表示して、ドキュメントモードを 10 に変更すると実行されます)
@END

@HTML
<script
	type="text/vbscript"
	src="http://lightbox.in.coocan.jp/baseFunction.vbs"
	charset="utf-8"
></script>
<script type="text/vbscript">

Function VBS() 

	on error resume next
	ExecuteGlobal( document.getElementById("vbstext").value&"")
	if Err.Number <> 0 then
		alert(Err.Description)
	end if
	on error goto 0

End Function

</script>
<textarea style='width:550px;height:250px;' id=vbstext>
MsgBox(CLng(Cdate("2009/08/05")))
</textarea><br>
<INPUT type=button value="実行" onClick='Call VBS()' language="VBScript">

@HEND

以下は、貼り付け用のコードです
@DIV
<script
	type="text/vbscript"
	src="http://lightbox.in.coocan.jp/baseFunction.vbs"
	charset="utf-8"
></script>
<script type="text/vbscript">

Function VBS() 

	on error resume next
	ExecuteGlobal( document.getElementById("vbstext").value&"")
	if Err.Number <> 0 then
		alert(Err.Description)
	end if
	on error goto 0

End Function

</script>
<textarea style='width:550px;height:250px;' id=vbstext>
</textarea><br>
<INPUT type=button value="実行" onClick='Call VBS()' language="VBScript">
@END