Hola, ya lo habia resuelto asi con .....Selected
Bien shilito
<SELECT size=1 id=moneda name=moneda>
<%For I=0 to UBOUND(GR_monedas,2)
if LB_Moneda=GR_monedas(0,I) then
Response.Write "<OPTION SELECTED VALUE=" & GR_monedas(0,I) & ">" & GR_monedas(1,I) & "</OPTION>"
else
Response.Write "<OPTION VALUE=" & GR_monedas(0,I) & ">" & GR_monedas(1,I) & "</OPTION>"
end if
Next%>
</SELECT>