求listview显示 数据的问题

网页里的数据是这样地
名字
性别
身高
民族
。
。
。
依次类推
若干数据
但是问题是
这代码只能显示 7项目
最后一个没了
看了一个下午还是没解决 
求大哥们帮忙Private Sub Command2_Click()
Dim s As String
s = Inet1.OpenURL("http://www.baidu.com/2.htm")
Text1.Text = s
End Sub
Private Sub Command3_Click()
LVrefresh
End Sub
Public Sub LVrefresh(Optional ByVal StandardType As Boolean)
    Dim strTemp As String, i As Integer, intRow As Integer
    
    Dim strArray() As String, ListItemTemp As ListItem
        
    strArray = Split(Text1.Text, vbCrLf)
    
    With ListView1
        .ColumnHeaders.Clear
        .ListItems.Clear
        
.ColumnHeaders.Add , , "名字"
.ColumnHeaders(1).Width = 1660
.ColumnHeaders.Add , , "性别"
.ColumnHeaders(2).Width = 900
.ColumnHeaders.Add , , "身高"
.ColumnHeaders(3).Width = 1
.ColumnHeaders.Add , , "民族"
.ColumnHeaders(4).Width = 800
.ColumnHeaders.Add , , "年龄"
.ColumnHeaders(5).Width = 1400
.ColumnHeaders.Add , , "国家"
.ColumnHeaders(6).Width = 700
.ColumnHeaders.Add , , "工作"
.ColumnHeaders(7).Width = 900
.ColumnHeaders.Add , , "婚姻"
.ColumnHeaders(8).Width = 1500
.ColumnHeaders(8).Alignment = lvwColumnLeft '设置第4列的列标的文本右对齐吧
        
        intRow = 1
        For i = LBound(strArray) To UBound(strArray)
            If intRow = 1 Then
                Set ListItemTemp = .ListItems.Add(, , strArray(i))
            ElseIf intRow = 8 Then
            Else
                ListItemTemp.SubItems(intRow - 1) = strArray(i)
            End If
            
            If intRow = 8 Then
                intRow = 1
            Else
                intRow = intRow + 1
            End If
        Next
    End With
    
End Sub
缺一项。。是哪个代码没写好呢