리스트박스 파싱 중 런타임 오류가 납니다

아래처럼 코드를 작성했는데 런타임 오류가 납니다.
오류가 나는 부분은 List1.AddItem에 있는 Split 구문이에요.
어떤 점을 확인해야 할까요?

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