Option Explicit

Private Sub LoadNextRecord(ByVal FileNum As Integer)
 Dim List As ListItems, Item As ListItem
 Dim Hour As Integer, Sum As Long
 Set List = lvRank.ListItems
    Get FileNum, , s
    Set Item = List.Add
    Item.Text = s.idNumber
    Item.ListSubItems.Add , "LAST", Trim$(s.lastName)
    Item.ListSubItems.Add , "FIRST", Trim$(s.firstName)
    Item.ListSubItems.Add , "MIDDLE", Trim$(s.middleName)
    Sum = 0
    For Hour = 1 To 6
     Item.ListSubItems.Add , "H" & Hour, (s.q1(Hour - 1) + s.q2(Hour - 1) + s.q3(Hour - 1) + s.q4(Hour - 1)) / 4
     Sum = Sum + (s.q1(Hour - 1) + s.q2(Hour - 1) + s.q3(Hour - 1) + s.q4(Hour - 1)) / 4
    Next Hour
    Item.ListSubItems.Add , "GPA", (Sum / 600 / 25)
End Sub

Private Sub Form_Initialize()
 Dim file As Integer
 file = FreeFile
 Open filename For Random As file Len = Len(s)
 Do Until EOF(file)
  LoadNextRecord (file)
 Loop
 Close file
End Sub

Private Sub lvRank_BeforeLabelEdit(Cancel As Integer)

End Sub