<form>
<input type=text name=b1 onclick=vbscript:checkdate(me.value) value="dd">
</form>
<script language=vbs>
function checkdate(vardate)
   msgbox(vardate)
end function
</script>