一个读文本文件的程序，不知哪里有问题，总是循环，帮忙看一下

模块中：
Dim Wenjian As String
Dim shujv As String
Dim Danshu() As String
Dim Bochang As String
Dim Bochangshu As Double
Dim xxx() As String
Dim x() As String
Dim xx1 As String
Dim NUM As Number1
Type Number1
    Number As String * 49
End Type窗体中：
Private Sub Form_paint()    Wenjian = "c:\data.txt"'随机文件打开读取第一个数据
    Open Wenjian For Random As #1 Len = 98
        Get #1, 1, NUM
        x = Split(NUM.Number, vbTab)
        xx1 = x(UBound(x) - 2)
        'MsgBox xx1
        xx = CDbl(xx1)
    Close #1
 
'顺序文件打开读取数据
    Open Wenjian For Input As 1
    Do While Not EOF(1)
        Line Input #1, shujv
    Loop
    Close #1
    xxx = Split(shujv, vbTab)
    Bochang = xxx(UBound(xxx) - 2)
    Bochangshu = CDbl(Bochang)
    
    Label4.Caption = Bochang
    Label5.Caption = Left(Str((Bochangshu - xx) * 1000 / 10.9), 5) & "℃"
    Label9.Caption = Time
end sub感觉应该是在读文本文件的那部分，达人们帮忙看看，谢先，呵呵