Llamar a procedimiento

Hola a todos, tengo un problema con un procedimiento que no puedo llamar
desde el evento onchange de un textbox...

el procedimiento es

<SCRIPT LANGUAGE="VBScript">
<!--
Sub Validate
Dim TheForm
Set TheForm = Document.forms("ValidForm")
If IsNumeric(TheForm.Text1.Value) Then
If TheForm.Text1.Value < 1 Or TheForm.Text1.Value > 10 Then
MsgBox "Please enter a number between 1 and 10."
Else
MsgBox "Thank you."
End If
Else
MsgBox "Please enter a numeric value."
End If
End Sub-->
</SCRIPT>

y trato de llamarlo de la siguiente forma:

<INPUT TYPE="text" NAME="text1" VALUE="." SIZE="10" contenteditable="false"
onchange="Validate()">

Espero que alguien pueda ayudarme.
Gracias.