小吳 VBQA 程式設計討論

目前程式的情況：開啟文字檔後，經過一些處理的步驟，得到結果（以上是我完成的部分）
我的問題是：在我處理完後，想再選取其他的文字檔來處理，這樣要怎麼做？
請各位高手幫幫我滴忙吧～謝謝喲～^____^～
以下是我讀入文字檔的程式：
Open Text1.Text For Input As #1
Do While Not (EOF(1))
Line Input #1, row1
a = a + 1
customer_temp = Split(row1, ",")
Loop
Close #1
ReDim Preserve customer(a, UBound(customer_temp) + 1)
　　Open Text1.Text For Input As #1　　　　　　　　
Do While Not (EOF(1))
For i = 0 To a - 1
Line Input #1, row1
　 customer_temp = Split(row1, ",")
　　
　　 For j = 0 To UBound(customer_temp)
　　　　　　customer(i, j) = customer_temp(j)
　　　　　　'Print "customer(" & i & "," & j & ")=" & customer(i, j) & "　　";
　　 Next j
　　
Next i
Loop
Close #1