[Resolvido] Config Split

Bom galera é o seguinte, me deparei com um problema e a única saída que achei foi usar o split, porém nunca usei e nao sei como posso configurar para o que preciso,espero que vocês me ajudem.

Do meu bando de dados eu leio o valor da tabela "acomodacao" que me retorna:

Casa de Familia(Pensão Completa): +250;Casa de Familia(Meia Pensão): +150;Ap. Estudantil: +300

o que eu preciso fazer é: montar um list box onde apareca cada opcao separada por ";" e o value do intem seja o numero do lado direto do mais.ou seja, mais ou menos o que preciso é que:

Casa de Familia(Pensão Completa): +250;Casa de Familia(Meia Pensão): +150;Ap. Estudantil: +300

vire:

<select name="acomodacao">
 <option value="250">Casa de Familia(Pensão Completa): +250</option>
 <option value="150">Casa de Familia(Meia Pensão): +150</option>
 <option value="300">Ap. Estudantil: +300</option>
</select>cacei algumas coisas na net e consegui separar tudo e deixar em cada linha o tipo de acomodacao em uma e o valor na outra, mas ao tentar jogar dentro do list box nao deu certo.Segue o codigo que consegui montar.

Quebra = Split(acomodacao, ";")
For x = LBOUND(Quebra) to UBOUND(Quebra)
Quebra2 = Split(quebra(x), "+")
For y = LBOUND(Quebra2) to UBOUND(Quebra2)

Response.Write"<select name=select id=select>"Quebra2(y) &
response.Write"</select>"

Next
next
%>
Desde já vlw galera, grande abraco