Here is my code

Dim jb As Integer
Dim ksks() As Single = {40, 50, 50, 6, 7, 8, 50}
jb = Array.IndexOf(ksks, 6)

Debug.Print(jb)

jb returns -1 no matter what number I use that is clearly in the array.