E008 イベントハンドルは FUNCTION でなければなりません

オブジェクトに対するイベントハンドラは、必ず関数にしてください。登録したプロシージャはサブルーチンです。