又一个菜鸟问题：怎么返回.item的个数？

有点问题：
返回错误：类型不匹配

源代码是这样的:
Dim Doc As Object
Dim tag, Opt As Object
Dim i As Integer
Set Doc = Webbrowser.Document
For i = 0 To Doc.All.length - 1
 If UCase(Doc.All(i).tagName) = "SELECT" Then
 Set tag = Doc.All(i)
 Select Case tag.Name
 Case "sex"
 MsgBox UBound(tag.Item) ''''这里
 MsgBox tag.Item(1).innerHTML

 End Select
 End If
Next i

这个是自动填表的源代码。。。。
自动选择select的选项。。。。

tag.count还是不能返回总数。。。�

MsgBox tag.Count ''''''''对象不支持该属性或方法


自动填表选择select的选项 value的值不一样
所以
for ii=0 to tag.的总数
 if "男" = tag.Item(ii).innerText then tag.Item(ii).Selected = True

next