在load form1 时，系统读取文件到内存（这时需要一定的时间），出现进度条来显示读取文件的进度！不知道如何解决。！

下面是读取文件的代码。在读取文件是 出现进度条（其进度条的时间如何获得） 高手指教。
Private Sub Form_Load()
i = 1
'‘================读取以前的抽奖
Dim inputdata As String * 1
On Error GoTo en
Open App.Path & "\choujiang" & "\i.txt" For Input As #1
Do While Not EOF(1)
Input #1, i
Loop
i = Val(Trim(i)) 'trim 将text2中去掉2边的空格 ，val（数字字符串转换为数值）
Close #1
Open App.Path & "\choujiang" & "\q.txt" For Input As #1
Do While Not EOF(1)
Input #1, fuzhi
q(k4 + 1) = fuzhi
k4 = k4 + 1
Loop
Close #1
fuzhi = Null
Open App.Path & "\choujiang" & "\a.txt" For Input As #1
Do While Not EOF(1)
Input #1, fuzhi
a(k3 + 1) = fuzhi
k3 = k3 + 1
Loop
Close #1

Open App.Path & "\choujiang" & "\b.txt" For Input As #1
Text4 = ""
Do While Not EOF(1)
inputdata = Input(1, #1)
Text2 = Text2 + inputdata
Loop
Dim k2 As Integer
For k2 = 1 To i - 1
b(k2) = Trim(Left(Text2, InStr((Text2), ",") - 1))
Text2 = Mid(Text2, InStr(Text2, ",") + 1)
Next k2
Close #1
Dim k As Integer
Text1 = ""
For k = 1 To i - 1
Text1 = b(k) & vbCrLf & Text1
Next k
en: End Sub

下面是存储文件的代码：因为b(）数组还有大量的文字信息，程序在楼上读取文件的时候，时间很长，想用个进度条显示一下。（避免认为程序死机）

Dim aa As String
On Error GoTo ag
aa = "\choujiang"
MkDir App.Path & aa
ag: Open App.Path & aa & "\结果.txt" For Output As #1
Print #1, Text2
Close #1
Open App.Path & aa & "\a.txt" For Output As #2
Dim k1 As Integer
For k1 = 1 To i - 1
Print #2, a(k1)
Next k1
Close #2
Open App.Path & aa & "\b.txt" For Output As #3
Dim k2 As Integer
For k2 = 1 To i - 1
Print #3, b(k2) & ",";
Next k2
Close #3
Open App.Path & aa & "\i.txt" For Output As #4
Print #4, i
Close #4
Open App.Path & aa & "\q.txt" For Output As #5
Dim k3 As Integer
For k3 = 1 To 6
Print #5, q(k3)
Next k3

进度条的时间如何获得？

知道 斑竹 你是高手。每次请教问题，斑竹都是不屑的态度，（很了不起啊）。这样做斑竹如何服人！


读了多少量（这个量如果获得），希望有能人指导。

本人要知道也不会出来问你这个高高在上的斑竹了。

如何判断正在读取那个文件？

感谢心中有剑的提示。。。这个也是个好办法。

但希望能用进度条来显示。

感谢各位斑竹的解答。