Sub Hello_OnClick() 
msgbox test.hello 
End Sub 

</script> 
=============================================== 
----s002_b.htm----- 

<script language="VBScript"> 

Function Public_Hello() 

Public_Hello = "Hello, World" 

End Function 

Sub Public_ShowHi() 

MsgBox "Hi" 

End Sub 

</script>