Function ReWriteContent()
dim j
dim ContentArr()
const pageline=5 '每页显示行
linenum=split(content,"<br>") '本例为计算字符串<br>标记的个数
allline=ubound(linenum)+1 '全文<br>(换行标记)总数
AllPage=int(allline\pageline)+1 '计算总页数
j=0
Redim ContentArr(AllPage)
for i=0 to AllPage

do while j<(i+1)*pageline
ContentArr(i)= ContentArr(i)&linenum(j)
j=j+1
loop
Next
End Function
本人是个ＶＢ菜鸟
怎么写，让他返回一个ContentArr数组．

有人帮忙吗!!!,我想把他写成一个函数然后返回
Function ReWriteContent(Content)
dim j
dim ContentArr()
const pageline=5 '每页显示行
linenum=split(content,"<br>") '本例为计算字符串<br>标记的个数
allline=ubound(linenum)+1 '全文<br>(换行标记)总数
AllPage=int(allline\pageline)+1 '计算总页数
j=0
Redim ContentArr(AllPage)
for i=0 to AllPage

do while j<(i+1)*pageline
ContentArr(i)= ContentArr(i)&linenum(j)
j=j+1
loop
Next
End Function