怎么判断TEXT1内容字节数，分割并保存

如何判断TEXT1内容字节数，分割并保存。
如何判断TEXT1内容字节数，分割并保存。

例如：
text1.text="风雨中，一只蚂蚁在想什么，我不清楚，只知道它为觅食，在人们鄙夷的目光中，蚂蚁拖着一粒剩饭，艰难地、一步一步地翻过瓦砾，单薄的身子在风雨中飘摇，我忙伸手将它向前推移，蚂蚁却扔掉饭粒仓惶逃离，我大声呼叫：兄弟别跑，我也是一只从异乡来觅食的会说话的蚂蚁"

现在我想实现判断是：text1.text　从左边开始即“风”字数起，当10个字后即到“想”字，将这10个字加到list1中，并且
text1.text中的这10个字自动删除，循环，直至将text1.text每10个字分割完成。

谢谢

[解决办法]
SelLength－返回或设置所选择的字符数。


SelStart－返回或设置所选择的文本的起始点；如果没有文本被选中，则指出插入点的位置。


SelText－返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串 ("")

VB code

Text1.SelStart = 0Text1.SelLength = 10List1.AddItem (Text1.SelText)Text1.SelText = ""
[解决办法]
VB code
sub 处理文本Text1.SelStart = 0Text1.SelLength = 10List1.AddItem (Text1.SelText)if Text1.SelText = ""  then exit subText1.SelText = "" end sub
[解决办法]
实际上，PC 运行太快，你看不到 TextBox 文本随 ListBox 增加而减少，除非你加上延时。

否则，下面代码的运行效果，与注释掉的代码没有什么区别。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
'Dim i As Long

'    For i = 10 To Len(Text1) Step 10
'        List1.AddItem Mid(Text1, i, 10)
'    Next i
'
'    Text1 = ""
Do While Len(Text1)
   List1.AddItem Left(Text1, 10)
   Text1 = Mid(Text1, 11)
   Me.Refresh
   Sleep 50
Loop
End Sub

Private Sub Command2_Click()
   List1.Clear
   Text1 = "风雨中，一只蚂蚁在想什么，我不清楚，只知道它为觅食，在人们鄙夷的目光中，蚂蚁拖着一粒剩饭，艰难地、一步一步地翻过瓦砾，单薄的身子在风雨中飘摇，我忙伸手将它向前推移，蚂蚁却扔掉饭粒仓惶逃离，我大声呼叫：兄弟别跑，我也是一只从异乡来觅食的会说话的蚂蚁"
End Sub

Private Sub Form_Load()
   Command2_Click
End Sub