Optimizing function for comparing array elements

[mathsbeauty]

Here is the function. It works. It runs hundreds of times during some VBA procedure. Can the function be optimized? It accepts temparray as an array and identifies the first occurrence of "O", "A+" etc. in elements of array. I think it can be optimized as it compares tempArray(i) in every run of loop with "O", "A+" etc.

function grade(tempArray)
For i = 0 To 10
If tempArray(i) = "O" Or tempArray(i) = "A+" Or tempArray(i) = "A" Or tempArray(i) = "B+" Or tempArray(i) = "B" Or tempArray(i) = "C" Or tempArray(i) = "D" Or tempArray(i) = "F" Then
grade = tempArray(i)
Exit Function
End If
Next i
grade = ""
end Function

Any help will be appreciated. Thanks.

 

[Akuini]

Perhaps:

Function grade(tempArray)
Dim tx As String
tx = "|O|A+|A|B+|B|C|D|F|"

   For i = 0 To 10
       If InStr(tx, "|" & tempArray(i) & "|") Then
           grade = tempArray(i)
           Exit Function
       End If
   Next i

   grade = ""
End Function

 

[mathsbeauty]

Thanks a lot for your reply.

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.