Private Sub cmdLoad_Click()
    Wrap$ = Chr$(13) + Chr$(10)
    cdlCommon.Filter = "Text files (*.TXT)|*.TXT"
    cdlCommon.ShowOpen
    
    If cdlCommon.FileName <> "" Then
        Open cdlCommon.FileName For Input As #1
        Do Until EOF(1)
            Line Input #1, LineOfText$
            AllText$ = AllText$ & LineOfText$ & Wrap$
        Loop
        txtfile.Text = AllText$
        txtfile.Enabled = True
linecount% = 0
charsInFile% = Len(txtfile.Text)

For i% = 1 To charsInFile%
    letter$ = Mid(txtfile.Text, i%, 1)
    If letter$ = Chr$(13) Then
        linecount% = linecount% + 1
        i% = i% + 1
    End If
Next i%

size = linecount% - 1

Call initialize
        
CleanUp:
        Close #1
    End If
    Exit Sub
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
'column title
    grid.TextArray(0) = "Job ID"
    grid.TextArray(1) = "Arrival Time"
    grid.TextArray(2) = "Job Type"
    grid.TextArray(3) = "Memory Size"
    grid.TextArray(4) = "CPU Burst"
    grid.TextArray(5) = "Waiting Time"
    grid.TextArray(6) = "Turn Around Time"
End Sub

Sub initialize()
Dim i%, temp(100)
For i = 1 To size
      grid.Rows = grid.Rows + 1
Next i
charsInFile% = Len(txtfile.Text)
x = 0
charsInFile% = Len(txtfile.Text)
For i% = 1 To charsInFile%
    letter$ = Mid(txtfile.Text, i%, 1)
    If letter$ = Chr$(60) Then
        temp(x) = Mid(txtfile.Text, i% + 1, 2)
        x = x + 1
    End If
Next i%
y = 1
For x = 1 To size
   grid.TextMatrix(x, 0) = temp(y)
   grid.TextMatrix(x, 4) = temp(y + 1)
   grid.TextMatrix(x, 5) = temp(y + 2)
   grid.TextMatrix(x, 1) = temp(y + 3)
y = y + 4
Next x
End Sub

<20>
<01><01><04><05>
<02><02><04><06>
<03><03><08><02>
<04><04><16><10>
<05><05><16><10>
<06><01><04><05>
<07><02><04><06>
<08><03><08><02>
<09><04><16><10>
<10><05><16><10>
<11><01><04><05>
<12><02><04><06>
<13><03><08><02>
<14><04><16><10>
<15><05><16><10>
<16><01><04><05>
<17><02><04><06>
<18><03><08><02>
<19><04><16><10>
<20><05><16><10>

txtfile.text

Dim size As Integer                     'Size must have scope throughout your form module
                                        'since it is being used in two  different procedures
Private Sub cmdLoad_Click()
    Wrap$ = Chr$(13) + Chr$(10)
    cdlCommon.Filter = "Text files (*.TXT)|*.TXT"
    cdlCommon.ShowOpen
    
    If cdlCommon.FileName <> "" Then
        Open cdlCommon.FileName For Input As #1
        Do Until EOF(1)
            Line Input #1, LineOfText$
            AllText$ = AllText$ & LineOfText$ & Wrap$
        Loop
        txtFile.Text = AllText$
        txtFile.Enabled = True
linecount% = 0
charsinfile% = Len(txtFile.Text)

For i% = 1 To charsinfile%
    letter$ = Mid(txtFile.Text, i%, 1)
    If letter$ = Chr$(13) Then
        linecount% = linecount% + 1
        
        i% = i% + 1
    End If
Next i%

size = linecount% - 1

Call initialize
        
CleanUp:
        Close #1
    End If
    Exit Sub
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
'column title
    grid.TextArray(0) = "Job ID"
    grid.TextArray(1) = "Arrival Time"
    grid.TextArray(2) = "Job Type"
    grid.TextArray(3) = "Memory Size"
    grid.TextArray(4) = "CPU Burst"
    grid.TextArray(5) = "Waiting Time"
    grid.TextArray(6) = "Turn Around Time"
    grid.Cols = 6 'Without this, you'll get an error in last for loop
                  'of the "initialize" procedure saying that the subscript is
End Sub           'out of range

Sub initialize()
Dim i%, temp(100)
For i = 1 To size
      grid.Rows = grid.Rows + 1
Next i
charsinfile% = Len(txtFile.Text)
X = 0
charsinfile% = Len(txtFile.Text)
For i% = 1 To charsinfile%
    letter$ = Mid(txtFile.Text, i%, 1)
    If letter$ = Chr$(60) Then
        temp(X) = Mid(txtFile.Text, i% + 1, 2)
        X = X + 1
    End If
Next i%
Y = 1
For X = 1 To size
   grid.TextMatrix(X, 0) = temp(Y)         'Have you entered non-consecutive numbers for a reason
   grid.TextMatrix(X, 4) = temp(Y + 1)     'I think the arguments should be:
   grid.TextMatrix(X, 5) = temp(Y + 2)     '(x,0), (x,1),(x,2),(x,3) and (x,4).
   grid.TextMatrix(X, 1) = temp(Y + 3)     'It shouldn't make a difference as far
Y = Y + 4                                  'as compiler errors are concerned unless
Next X                                     ' you have set the number of columns correctly
End Sub

Private Sub cmdLoad_Click()
    Wrap$ = Chr$(13) + Chr$(10)
    cdlCommon.Filter = "Text files (*.TXT)|*.TXT"
    cdlCommon.ShowOpen
    
    If cdlCommon.FileName <> "" Then
        Open cdlCommon.FileName For Input As #1
        Do Until EOF(1)
            Line Input #1, LineOfText$
            AllText$ = AllText$ & LineOfText$ & Wrap$
        Loop
                                [size=7][b]txtFile.Text = AllText$[/b][/size]
        txtFile.Enabled = True
linecount% = 0
charsinfile% = Len(txtFile.Text)

For i% = 1 To charsinfile%
    letter$ = Mid(txtFile.Text, i%, 1)
    If letter$ = Chr$(13) Then
        linecount% = linecount% + 1
        
        i% = i% + 1
    End If
Next i%

size = linecount% - 1

Call initialize
        
CleanUp:
        Close #1
    End If
    Exit Sub
End Sub

Dim size As Integer, txtText As String
Private Sub cmdLoad_Click()
    Wrap$ = Chr$(13) + Chr$(10)
    cdlCommon.Filter = "Text files (*.TXT)|*.TXT"
    cdlCommon.ShowOpen
    
    If cdlCommon.FileName <> "" Then
        Open cdlCommon.FileName For Input As #1
        Do Until EOF(1)
            Line Input #1, LineOfText$
            AllText$ = AllText$ & LineOfText$ & Wrap$
        Loop
        txtText = AllText$
        
linecount% = 0
charsinfile% = Len(txtText)

For i% = 1 To charsinfile%
    letter$ = Mid(txtText, i%, 1)
    If letter$ = Chr$(13) Then
        linecount% = linecount% + 1
        
        i% = i% + 1
    End If
Next i%

size = linecount% - 1

Call initialize
        
CleanUp:
        Close #1
    End If
    Exit Sub
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
'column title
    grid.Rows = 4
    grid.TextArray(0) = "Job ID"
    grid.TextArray(1) = "Arrival Time"
    grid.TextArray(2) = "Job Type"
    grid.TextArray(3) = "Memory Size"
    grid.TextArray(4) = "CPU Burst"
    grid.TextArray(5) = "Waiting Time"
    grid.TextArray(6) = "Turn Around Time"
    grid.Cols = 6
End Sub

Sub initialize()
Dim i%, temp(100)
For i = 1 To size
      grid.Rows = grid.Rows + 1
Next i
charsinfile% = Len(txtText)
X = 0
charsinfile% = Len(txtText)
For i% = 1 To charsinfile%
    letter$ = Mid(txtText, i%, 1)
    If letter$ = Chr$(60) Then
        temp(X) = Mid(txtText, i% + 1, 2)
        X = X + 1
    End If
Next i%
Y = 1
For X = 1 To size
   grid.TextMatrix(X, 0) = temp(Y)
   grid.TextMatrix(X, 4) = temp(Y + 1)
   grid.TextMatrix(X, 5) = temp(Y + 2)
   grid.TextMatrix(X, 1) = temp(Y + 3)
Y = Y + 4
Next X
End Sub