我在第一个文本框中连续输入十个数，中间用空格各开，现要把他们读出来放在一个十个元素 的数组中，该怎么来写？哪位好心人能告诉我，不胜感激！

用Split

Dim strContent as String
strContent="12,36,45,98,45"

dim Mat

Mat = Split(strContent,",")

dim myArray(10) as integer
dim str as string
dim i as single
dim X as variant
str=text1.text
X=split(str," ")
for i=0 to unbond(X)
myArray(i)=cint(X(i))
next

谢谢了，太感激大家了