I'm missing something and I don't know what.
Public Sub MyTest()
Dim Val
Val = Array(38, 36, 26, 62, 10, 28, 15, 7, 78)
Dim myClass(8)
For i = 0 To 8 Step 3
Select Case Val(i)
Case Val(i) >= 75
myClass(i) = "Good"
myClass(i + 1) = "Good"
myClass(i + 2) = "Good"
Case Val(i) >= 50
myClass(i) = "Med"
myClass(i + 1) = "Med"
myClass(i + 2) = "Med"
Case Else
myClass(i) = "Bad"
myClass(i + 1) = "Bad"
myClass(i + 2) = "Bad"
End Select
Next
End Sub
For some reason myClass(3) comes up as "Bad" however I expect "Med". myClass(6) should be "Good" but still comes up "Bad". Help.