Dates in Array, Counter (VBA Code Only)

I have a section of code I am having trouble with. It works when there are 2 instances (my basic test) but I need it to work when there are 3 or more instances.

ScreenShot388.jpg

The 08/30/10 date shouldn't be payable but because the code is static, not dynamic...

     If hcpc(i) = "97002" Or hcpc(i) = "97004" Then
                    reval_date(reval_count) = iDate(i)
                    Select Case reval_count
                        Case 1
                            feevalue(i) = ruv(i) * convfactor
                            reason(i) = "Phys Fee Sched"
                            reval_count = reval_count + 1
                        Case Else
                            If (reval_date(2) - reval_date(1)) < 30 Then      <----- need for the (2) & (1) to be dynamic 
                                feevalue(i) = 0
                                reason(i) = "Phys Fee Sched/30 Day Rule"
                            Else
                                feevalue(i) = ruv(i) * convfactor
                                reason(i) = "Phys Fee Sched"
                            End If
                    End Select
                End If

         If hcpc(i) = "97002" Or hcpc(i) = "97004" Then
                    reval_date(reval_count) = iDate(i)
                    Select Case reval_count
                        Case 1
                            feevalue(i) = ruv(i) * convfactor
                            reason(i) = "Phys Fee Sched"
                            reval_count = reval_count + 1
                        Case Else
                            If (reval_date(2) - reval_date(1)) < 30 Then
                                feevalue(i) = 0
                                reason(i) = "Phys Fee Sched/30 Day Rule"
                                reval_date(2) = reval_date(1)
                            Else
                                feevalue(i) = ruv(i) * convfactor
                                reason(i) = "Phys Fee Sched"
                                reval_date(1) = reval_date(2)
                            End If
                    End Select
                End If

The above code is working apparently. If someone can see an issue with the code, please let me know.