[RESOLVED] Choosing which row to add an item in a listview?

Public Sub CheckChoiceListStudent1()
'THIS CODE WILL CHECK TO SEE IF THE STUDENT HAS PICKED THE CHOICE YET
' IF THEY HAVE PICKED THE CHOICE, THEN IT WILL NOT BE VISIBLE
 
 
'CHECK FOR READ ON YOUR OWN
Dim i1 As Long
   
    For i1 = StudentChoices(0).ListCount - 1 To 0 Step -1
If InStr(1&, StudentChoices(0).List(i1), "Read On Your Own", vbTextCompare) Then
        ReadToSelfBanner.Visible = False
        ReadToSelfList.Visible = False
        ReadSelfCountLBL.Visible = False
      
    End If
Next
 
 
'CHECK FOR READ TO A CLASSMATE
Dim i2 As Long
   
    For i2 = StudentChoices(0).ListCount - 1 To 0 Step -1
If InStr(1&, StudentChoices(0).List(i2), "Read To A Classmate", vbTextCompare) Then
        ReadToSomeoneBanner.Visible = False
        ReadToSomeoneList.Visible = False
        ReadSomeoneCountLBL.Visible = False
    End If
Next
 
'CHECK FOR LITERACY CENTER
Dim i3 As Long
   
    For i3 = StudentChoices(0).ListCount - 1 To 0 Step -1
If InStr(1&, StudentChoices(0).List(i3), "Listening Center", vbTextCompare) Then
        ListeningCenterBanner.Visible = False
        ListeningCenterList.Visible = False
        ListeningCenterCountLBL.Visible = False
    End If
Next
 
'CHECK FOR WORD WORK
Dim i4 As Long
   
    For i4 = StudentChoices(0).ListCount - 1 To 0 Step -1
If InStr(1&, StudentChoices(0).List(i4), "Word Work", vbTextCompare) Then
        WordWorkBanner.Visible = False
        WordWorkList.Visible = False
        WordWorkCountLBL.Visible = False
    End If
Next
 
'CHECK FOR WRITING
Dim i5 As Long
   
    For i5 = StudentChoices(0).ListCount - 1 To 0 Step -1
If InStr(1&, StudentChoices(0).List(i5), "Writing", vbTextCompare) Then
        WritingList.Visible = False
        WritingList.Visible = False
        WritingCountLBL.Visible = False
    End If
Next
 
 
End Sub