Buon giorno a tutti.
Posto parte di codice che non mi funziona

..........
<SCRIPT LANGUAGE="VBSCRIPT">
<!--
Sub txtcombo_Change
Dim val1, val2, TheForm
Set TheForm = Document.ValidForm

val1 = Mid(TheForm.txtcombo.Value, 1,18)
val2 = Mid(TheForm.txtcombo.Value, 19,5)
End Sub
-->
</script>
<FORM NAME="ValidForm">
.....il combobox:
<select size="1" name="txtcombo" tabindex="5">

Il problema è che quando cambio il valore nella combo non succede nulla. Cosa sbaglio?
Grazie mille e ciao