有哪位高手能帮小弟我看看这个循环错在哪里了阿

有谁能帮我看看这个循环错在哪里了阿？
Private   Sub   Button2_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button2.Click
                Dim   xlapp   As   New   Excel.Application
                Dim   xlworkbook   As   Excel.Workbook
                Dim   xlworksheet   As   Excel.Worksheet
                xlworkbook   =   xlapp.Workbooks.Open( "C:\Documents   and   Settings\project\My   Documents\Project   student\New\book3.xls ")
                'xlapp.Visible   =   True
                xlworksheet   =   xlworkbook.Worksheets(1)
                Dim   i   As   Integer
                i   =   1
                Dim   Deg   As   Integer
                Deg   =   CDec(xlworksheet.Range( "A "   +   CStr(i)).Value)
                Label1.Text   =   Deg
                Dim   break   As   Boolean
                Do
                        Do
                                Deg   =   CDec(xlworksheet.Range( "A "   +   CStr(i)).Value)
                                Threading.Thread.Sleep(1000)
                                i   +=   1
                                If   Deg   <>   0   Then
                                        break   =   True
                                        Exit   Do
                                End   If
                        Loop   'Until   break   =   True
                Loop   Until   break   =   True
                xlworkbook   =   Nothing
                xlworksheet   =   Nothing
                xlapp.Quit()
        End   Sub
每次一进这个循环，点什么都没用了，以前做过差不多的只是if条件不一样，就能用。xls里面前面全是0，最后一个数非0，然后非0的时候就会跳出来了。

------解决方案--------------------
Threading.Thread.Sleep(1000)
是不是长了点，换成10或100也行啊。