GetInfoSection好像有很多人在用这个，但是我找不到调用实例

http://www.daima.com.cn/Info/1/Info892/
来自上边连接'――――――――（1）――――――――――――
'获得指定ini文件中某个节下面的所有键值 TrueZq,,需要下面的API声明
'Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'返回一个字符串数组
'调用举例：
'Dim arrClass() As String
'arrClass = GetInfoSection("class", "d: ype.ini")Public Function GetInfoSection(strSection As String, strIniFile As String) As String()
    Dim strReturn As String * 32767
    Dim strTmp As String
    Dim nStart As Integer, nEnd As Integer, i As Integer
    Dim sArray() As String
    Call GetPrivateProfileSection(strSection, strReturn, Len(strReturn), strIniFile)
    strTmp = strReturn
    i = 1
    Do While strTmp <> ""
        nStart = nEnd + 1
        nEnd = InStr(nStart, strReturn, vbNullChar)
        strTmp = Mid$(strReturn, nStart, nEnd - nStart)
        If Len(strTmp) > 0 Then
            ReDim Preserve sArray(1 To i)
            sArray(i) = strTmp
            i = i + 1
        End If
        Loop
    GetInfoSection = sArray
End Function我这样调用的
Private Sub ScanComm_Click()
Dim arrclass()
arrclass = GetInfoSection("scan", App.Path & "\moviescan.ini")
For i = 1 To UBound(arrclass)
    ScanMain (arrclass(i))
Next
End Sub
结果系统提示说，不能给数组赋值，很郁闷
这个函数如何调用，哪位高人给个实例