Public Function ListA(Path As String,Sz() As String,objA As Object) As Integer  '声明Path路径,Sz字符串数组,ObjA对象形参
Dim a1 As String '一个临时变量
Dim Temp As String '呵呵，又是一个临时变量
Dim Js As Integer '饿，还是一个临时变量
Js = 0 '初始化获取行数变量值为0
Open Path For Input As #1 '输出list2.lis文件
'使用Js变量获取整个lis文件的长度
Do Until EOF(1) = True
Line Input #1,Temp
Js = Js + 1
Loop
Close #1
'-----------------------------------------------
Open Path For Input As #2
For i = 0 To Js \ 2 - 2
Line Input #2,a1
objA.AddItem a1
Next i
'-----------------------------------------------
'这里本想用For循环代替的，但好像容易溢出，鬼知道怎么回事
Line Input #2,Temp '将文本中间两行废话读进temp变量
Line Input #2,Temp '
'-----------------------------------------------
ReDim Sz(Js \ 2 - 2) '重新定义a2数组
For i2 = 0 To Js \ 2 - 2 'JS总行数减去两行废话剩下的再除以上面和下面两个
Line Input #2,Sz(i2)
Next i2
Close #2 '关闭文件
ListA = Js / 2 - 2 + 1
End Function

之后再调用

Dim ListTextNumber() As String

Private Sub Form_Load()
Dim ReturnList As Integer
ReturnList = ListA(App.Path & "\ListItem.Item",ListTextNumber,List1)
End Sub