Vb interactuar con internet explorer javascript

Estimados Por favor su ayuda..

Estoy interactuando con internet explorer pero me surgio un problema ya que se me presnto el siguiente codigo en la pagina de internet.

<select name="YEAR" class="selectfecha" onchange=" checkDate()">

<script language="javascript" type="text/javascript">for(var num=0; num<=(thisYear - 1999); num++){ document.writeln("<option>" + (thisYear-num)+"<\/option>"); }</script>

<option>

Text - 2012

Text - Empty Text Node

<option>

Text - 2011

Text - Empty Text Node

<option>

Text - 2010

Text - Empty Text Node

<option>

Text - 2009

Text - Empty Text Node

<option>

Text - 2008

Text - Empty Text Node

<option>

Text - 2007

Text - Empty Text Node

<option>

Text - 2006

Text - Empty Text Node

<option>

Text - 2005

Text - Empty Text Node

<option>

Text - 2004

Text - Empty Text Node

<option>

Text - 2003

Text - Empty Text Node

<option>

Text - 2002

Text - Empty Text Node

<option>

Text - 2001

Text - Empty Text Node

<option>

Text - 2000

Text - Empty Text Node

<option>

Text - 1999

Text - Empty Text Node

Estoy utilizando el codigo en VB

IE.Document.All("YEAR").Value = Val(Selection.Value)

Donde la celda seleccionada se encuntra el año que quiero seleccionar pero al funcionar la macro en la pagina de internet se me borra el contenido y no me selecciona nada.

Espero me puedan porfavor ayudar. Requiero solucionar este problema *******.

Agradezco su pronta respuesta.