有一个问题一直无法解决，麻烦各位高手帮忙看看，不胜感激！
我的程序是：
Label.LinkItem = "/Channel/MachineAxis/actToolBasePos[u1,1](""!d%11.6lf"")"
Private Sub Timer1_Timer() 'Timer1间隔为10ms
Dim i As Integer
If Timer <> testTime Then
ReDim Preserve DataBuffer(i)
DataBuffer(i) = Val(Label.Caption)
i=i+1
Else
Timer1.Enabled = False
End sub

为什么我读取的数据的数据密度很小（间隔值很大）？

正常数据（用西门子自带的圆测试得到的某轴位置数据，间隔值约0.07）
3.49194999999997
3.56983999999994
3.64785999999998
3.72507999999993
3.80170999999996
3.87825999999995
3.95517999999998
4.03231999999997
4.10877999999997
4.18507999999997
4.26062999999994
4.33606999999995
4.41026999999997
4.48422999999997
4.55789999999996
4.63209999999998

我的数据（隔70ms才得到一个新值，间隔值约0.8）
4.571200
4.571200
4.571200
4.571200
4.571200
4.571200
4.571200
3.738250
3.738250
3.738250
3.738250
3.738250
3.738250
2.906920
2.906920
2.906920
2.906920
2.906920
2.906920
2.906920