how to show a lots of data though MSFlexGrid [*resolved]

[junny]

I tried the code below,but it doesn't seem to faster
thanks for your reply all the same

Option Explicit
Dim time
Dim time1
Private Sub Form_Load()
Call now_time
Dim i, j As Integer
Dim mydata1(10000)
  
  
  'load file and put the data in to MSFlexGrid1
  i = 0
  Open App.Path & "\1.dat" For Input As #1
  Do While Not EOF(1)
    Line Input #1, mydata1(i)
    i = i + 1
  Loop
 
MSFlexGrid1.Rows = 1
For j = 0 To i
   MSFlexGrid1.AddItem Replace(mydata1(j), ",", vbTab)
Next
 
Call now_time1
 
MsgBox Second(time1 - time)
End Sub
 
 
Private Sub now_time()
time = Now()
End Sub
 
Private Sub now_time1()
time1 = Now()
End Sub