Text中如何逐个读取数据

Private Sub Command1_Click()
Dim 数据
数据 = Split(Text1, " ") '如果使用逗号分割，就把引号内的空格换成逗号。
For i = 1 To UBound(数据)
Print 数据(i)
Next i
End Sub

这个要看你的数据是怎么存放的
比如，是用空格隔开，还是一行一个数据等等

不明白你想表达什么？
何谓逐个读取

个数用len()
逐个读取可以用 instr()
http://baike.baidu.com/view/971309.html?tp=0_00这里面有介绍

a=split(text1.text," ")
然后a就是一个数组，就是text中的全部数据

for i=0 to ubound(a)'ubound(a)是数据总数
debug.print a(i)'a(i)就是其中的一组数据
next