由于本人的一套机电装置，是用VB语言编写的控制系统，但是在调试过程中一直有问题，需要请教一下会VB软件的高手相助。
  构思：本装置是一套激光二维轮廓扫描功能的，激光传感器测距离值，电机反馈角度值，利用距离值和角度值形成的极坐标确定一点，然后用相同的方法确定其他各点，最后拟合成一光滑曲线。
   问题：电机反馈的角度值总是不能在启动后马上显示，需要一段时间间隔后才能出现，或者是一开始角度值都是显示0，等显示20几个零后，角度值才从0慢慢增加显示正常，这是为什么？
   有懂的人，请帮个忙啊，十分感谢！
   如下是读取电机读数的代码，请问哪里有问题
Private Sub MSComm1_OnComm()         '读取电机编码器角度数据
If = 2 Then
            Dim stemp As Double
            Dim stemp1 As String
            Dim btemp() As Byte
            Dim stemp2 As String
            Dim stem1 As String
            Dim stem2 As String
            Dim stem As String
           btemp = MSComm1.Input
            If btemp(0) = 204 Then
               stemp1 = Hex(btemp(6))
                 Do While (Len(stemp1) < 2)
                   stemp1 = "0" & stemp1
                 Loop
               stemp2 = Hex(btemp(7))
                 Do While (Len(stemp2) < 2)
                   stemp2 = "0" & stemp2
                 Loop
            stem1 = Mid(HEX_to_BIN(stemp1), 2, 7)
            stem2 = Mid(HEX_to_BIN(stemp2), 2, 7)
            stem = "0" & "0" & stem1 & stem2
            stemp = BIN_to_DEC(stem) * 0.18                  
            If stemp > 1500 Then
               stemp = 0
            End If
        List1.AddItem stemp
            End If
End If
End Sub