리스트박스 파싱질문

Private Sub Form_Load()
WinHttp.Open GET, http://trade.itemmania.com/sell/list.html
WinHttp.Send
For i = 0 To 9
List1.AddItem Split(Split(Split(Split(WinHttp.ResponseText, select name=goods_list)(1), option value=)(i), )(1), /option)(0)
Next i
End Sub이렇게해서 완성을햇는데왜 List1.AddItem Split(Split(Split(Split(WinHttp.ResponseText, select name=goods_list)(1), option value=)(i), )(1), /option)(0)
런타임오류가뜰까요 저부분에서 ;