vb数据处理

>+0.5762+0.0053+0.0000+0.0000+0.0000+0.0000+0.0008+0.0000+1.0000. 
>+0.5766+0.0059+0.0000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000. 
>+0.5767+0.0060+0.0000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000. 
>+0.5769+0.0060+.0000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000.> 
+0.5770+0.0060+0.0000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000.> 
+0.5768+0.0061+0.0000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000.> 
+0.5768+0.0061+0.000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000.>+ 
0.5768+0.0061+0.0000+0.0000+0.0000+0.0000+0.009+0.0000+1.0000.>+0 
.5770+0.0061+0.0000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000.>+0 
.5768+0.0062+0.0000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000.>+0 
.577+0.0062+0.0000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000.>+0. 
5773+0.0062+0.0000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000.>+0. 
5769+0.0062+0.0000+0.0000+0.0000+0.0000+0.0009+0.0000+1.0000.>+0. 
5769+0.0062+0.0000+0.0000+0.0000+0.0000+0.0010+0.0000+1.0000.>+0. 
5769+0.0063+0.0000+0.0000+0.0000+0.0000+0.0010+0.0000+1.0000.>+0. 
以上数据在text1.text里，将上述数据每个>后的前两组数，第一组乘以100放在excel第一列里， 
第二组乘以100放在第二列里，其余的不要了，像1.000，0.001等都不要了，在excel里应该得到这样的数： 
57.62 0.53 
57.66 0.59 
57.67 0.60 
........ 下列代码只是将其中的数乘以100，且遇到后面的几行换行不规则的就不提取了，
供参考：谢谢！ 
Arr1 = Split(Text1.Text, ".>") For i = LBound(Arr1) To UBound(Arr1) 
Arr2 = Split(Arr1(i), "+") 
For j = LBound(Arr2) To UBound(Arr2) 
If IsNumeric(Arr2(j)) Then 
If CDbl(Arr2(j)) > 0 Then 
Count = Count + 1 
ReDim Preserve Data(1 To Count) As Double 
Data(Count) = CDbl(Arr2(j)) 
End If 
End If 
Next 
Next 
For i = LBound(Data) + 1 To UBound(Data) 
xlSheet.Cells(i, 1) = Data(i) * 100 Next