Вы ищете функцию GetRef .
Из ссылки:
Функция GetRef
Возвращает ссылку на процедуру
это может быть связано с событием.
...
<SCRIPT LANGUAGE="VBScript">
Function GetRefTest()
Dim Splash
Splash = "GetRefTest Version 1.0" & vbCrLf
Splash = Splash & Chr(169) & " YourCompany 1999 "
MsgBox Splash
End Function
Set Window.Onload = GetRef("GetRefTest")
</SCRIPT>