多值文本域

or
dim i as integer
for i to ubound(strarr)
   msgbox strarr(i)
next