[2005] Looping logic and searching strings

Something is wrong with my logic, I really need help. I've got an excel file with 6 columns. On column 5 it contains various phrases. I'm looking for either ('RightScan' or 'LeftScan'). Both of these will have the same unique CaseID. Each case will have right and left sided info. It loops from the end of the file to the top as the most recent records are at the bottom of the excel file. So, I check for a phrase, if its found then get its unique number. I then check my existing CaseID numbers for this new one. If it already exists then don't do anything else as I've started from the end so i have the most recent. If it doesn't exist then add. Here are my variables:

VB Code:

Public Structure CaseDetails
        Dim rghtTime As String
        Dim rghtDate As String
        Dim lftTime As String
        Dim lftDate As String
        Dim CaseID As String
        Dim UserID As String
        Dim RClass As String
        Dim LClass As String
        Dim RCode As String
        Dim LCode As String
        Dim LFound As Boolean
        Dim RFound As Boolean
    End Structure
 
    Dim CaseCount As Integer = 0
    Dim myCases(9000) As CaseDetails

Here is the code for the Rightside. The problem has something to do with the q loop but I don't know what. I keep just getting caseCount = 1. It doesn't seem to want to add any new cases:

VB Code:

For r = oSht.UsedRange.Rows.Count To 1 Step -1
            Console.WriteLine("Passed the Null Check of the Do Loop")
 
  If CType(oSht.Cells(r, 5), Range).Value.ToString = "RightScan" Then
                ClassificationType = "Right"
                Console.WriteLine("Right Classification in Text Cell")
 
'.
'.
'.
 Select Case ClassificationType
 
                Case "Right"
                    'CHECK FOR DATA IN EXISTING CASES
                    If CaseCount = 0 Then    'IF 1st EVER CASE THEN
                        'Just add data
                        myCases(CaseCount).RClass = CType(oSht.Cells(r, 6), Range).Value.ToString
                        myCases(CaseCount).rghtDate = CType(oSht.Cells(r, 2), Range).Value.ToString.Substring(1, 10)
                        myCases(CaseCount).rghtTime = CType(oSht.Cells(r, 2), Range).Value.ToString.Substring(11, 5)
                        myCases(CaseCount).RCode = ClassifyCode(CType(oSht.Cells(r, 6), Range).Value.ToString)
                        myCases(CaseCount).CaseID = CType(oSht.Cells(r, 3), Range).Value.ToString
                        myCases(CaseCount).UserID = CType(oSht.Cells(r, 1), Range).Value.ToString
                        myCases(CaseCount).RFound = True
                        CaseCount += 1 'Update at the end
                        Console.WriteLine(CaseCount)
                        Console.WriteLine("Added to case count")
                    Else
 
                        For q = 0 To CaseCount Step 1    'CHECK FOR CASE_ID AGAINST EXISTING CASE_ID's IN ARRAY - IS THIS WRONG??
                            If myCases(q).CaseID = CType(oSht.Cells(r, 3), Range).Value.ToString Then
                                Console.WriteLine("Found match")  'CASE_ID has been Found - BUT Does it have RightSided Data?
                                If myCases(q).RFound = True Then  'Right Sided Data Exists
                                    Console.WriteLine("Data on right side exists")
                                    Exit For
                                Else   'CASE_ID ALREADY EXISTS BUT NO RIGHT SIDED DATA IS PRESENT SO ADD IT
                                    myCases(q).RClass = CType(oSht.Cells(r, 6), Range).Value.ToString
                                    myCases(q).rghtDate = CType(oSht.Cells(r, 2), Range).Value.ToString.Substring(1, 10)
                                    myCases(q).rghtTime = CType(oSht.Cells(r, 2), Range).Value.ToString.Substring(11, 5)
                                    myCases(q).RCode = ClassifyCode(CType(oSht.Cells(r, 6), Range).Value.ToString)
                                    myCases(q).CaseID = CType(oSht.Cells(r, 3), Range).Value.ToString
                                    myCases(q).UserID = CType(oSht.Cells(r, 1), Range).Value.ToString
                                    myCases(q).RFound = True   'Data entered as Boolean
                                    Exit For
                                End If
                            End If
                        Next
                    End If
 
                    If q = CaseCount Then 'GOT ALL THE WAY THROUGH WITHOUT FINDING IT - SO ADD NEW CASE
                        Console.WriteLine("Added a right classification")
                        'Add the records to CURRENT CASECOUNT
                        myCases(CaseCount).RClass = CType(oSht.Cells(r, 6), Range).Value.ToString
                        myCases(CaseCount).rghtDate = CType(oSht.Cells(r, 2), Range).Value.ToString.Substring(1, 10)
                        myCases(CaseCount).rghtTime = CType(oSht.Cells(r, 2), Range).Value.ToString.Substring(11, 5)
                        myCases(CaseCount).RCode = ClassifyCode(CType(oSht.Cells(r, 6), Range).Value.ToString)
                        myCases(CaseCount).CaseID = CType(oSht.Cells(r, 3), Range).Value.ToString
                        myCases(CaseCount).UserID = CType(oSht.Cells(r, 1), Range).Value.ToString
                        myCases(CaseCount).RFound = True
                        CaseCount += 1 'THEN UPDATE AT THE END
                        Console.WriteLine(CaseCount)
                    End If
 
'.
'.
'.
'etc... Left and so on
End Select
 
Next

It's not crashing. It's a problem with the loop but I still can't understand why. Can anyone offer a suggestion of any sort. I've been at this now for days.

Thanks