GetPrivateProfileString函数问题求解

Question

GetPrivateProfileString是用来读ini函数的
现在有一个配置文件run.ini如下
[配置参数]
Address=notebook
Catalog=hr现在有一段代码如下
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(App.Path + "\run.ini")) ThenElse
  MsgBox "配置文件出错,程序不能运行"
  Exit Sub
End IfINIfileName = App.Path + "\run.ini"
n = GetPrivateProfileString("配置参数", "Address", "", ip, Len(ip), INIfileName)
ip = Left(ip, n)INIfileName = App.Path + "\run.ini"
n = GetPrivateProfileString("配置参数", "Catalog", "", catalog, Len(catalog), INIfileName)
catalog = Left(catalog, n)我想在catalog里面添加多个选项，把catalog写成这样的
Catalog=hr1,hr2,hr3,hr4,hr5
可能还有hr6,hr7,hr8
然后把这些hr读到变量里面请问怎么实现

Answer 1

Dim Catalogx() as string
INIfileName = App.Path + "\run.ini"
n = GetPrivateProfileString("配置参数", "Catalog", "", catalog, Len(catalog), INIfileName)
catalog = Left(catalog, n)
Catalogx=split(catalog,",")

Answer 2

不错，用split后数组catalogx(0)为hr1,catalogx(1)为hr2依次类推

Answer 3

hr1,hr2,hr3,hr4,hr5,hr6,hr7
把它们读到一个数组里面，用split怎么实现啊请具体写一写，谢谢