ByVal是表示按传值方式传递参数， vbCrLf是一常量，表示回车符，Wend 是循环openfile = s 表示把s的值赋值给openfilea = split(openfile(App.Path & "\1.txt"),vbcrlf)表示先读出1.txt的内容，然后按回车符作为分隔符把内容分解到一个数组a中。
啥是二维数组？
