problem med optimering

jeg har et msflexgrid
og der putter jeg poster ind i ud fra en tekstfil
og det går sådanset os fint
MEN
meningen er at det skal kunne håndtere tekstfiler med 10.000 linier og opefter
problemet er bare at det går hulens langsomt
så mit spørgsmål er om der er nogen der har nogle gode optimeringsideer

koden kommer her:

Public Sub ReadFile()

    skod = "achoo"
    ColNumber = 1
    RowNumber = 2
    'Form1.flxGrid.Redraw = False
   
    Open Form1.txtFileToOpen.Text For Input As #1
   
        Do While EOF(1) = False
           
            ReDim Preserve ContentLine(p + 1)
                           
                Line Input #1, ContentLine(p)
           
                Call ProcessLine(ContentLine(p))
           
                p = p + 1
           
        Loop
       
    Close #1
   
    Form1.flxGrid.Redraw = True
   
    'MsgBox (line)
    'Call ProcessContent

End Sub

Public Sub ProcessLine(Line As String)
       
        ContentArr = Split(Line, Form1.ComboChooseDelimiter.Text)

        If Form1.flxGrid.Rows = RowNumber Then Form1.flxGrid.Rows = Form1.flxGrid.Rows + 1
       
        Form1.flxGrid.Row = RowNumber
        Form1.flxGrid.Col = 0
        Form1.flxGrid.Text = RowNumber - 1
        Form1.flxGrid.CellForeColor = RGB(0, 0, 255)
        Form1.flxGrid.CellAlignment = 1
       
            ArrayCount = UBound(ContentArr()) + 1
           
            Form1.flxGrid.Cols = UBound(ContentArr()) + 2
       
            If ArrayCount <= 8 And skod = "achoo" Then
               
                Form1.flxGrid.Rows = Form1.flxGrid.Rows + 1
                crap = ArrayCount * 1035
                lort = Form1.flxGrid.Width - crap
               
            End If
       
        For ContentCount = 0 To UBound(ContentArr())
               
            Form1.flxGrid.Col = ColNumber
            Form1.flxGrid.Text = ContentArr(ContentCount)
           
            If ArrayCount <= 8 And ContentCount = UBound(ContentArr()) Then
           
                Form1.flxGrid.ColWidth(Form1.flxGrid.Col) = lort - 100
               
            End If
           
            Form1.flxGrid.Row = 0
           
            If Form1.flxGrid.Text = "" Then
           
                Form1.flxGrid.Text = "Ingen"
                Form1.flxGrid.Row = 1
                Form1.flxGrid.Text = "Ingen"
                Form1.flxGrid.CellForeColor = RGB(0, 0, 255)
               
                Form1.flxGrid.Row = RowNumber
               
            Else
           
                Form1.flxGrid.Row = RowNumber
               
            End If
               
           
            ColNumber = ColNumber + 1
           
        Next
       
        skod = "lort"
       
        ColNumber = 1
       
        RowNumber = RowNumber + 1
       
End Sub