Code:
Function f_test()
aL1 = "01,02,03,04,05,06,07,08,09,10"
aL2 = "11,12,13,14,15,16,17,18,19,20"
aL3 = "21,22,23,24,25,26,27,28,29,30"
aL4 = "31,32,33,34,35,36,37,38,39,40"
aL5 = "41,42,43,44,45,46,47,48,49,50"
Dim i As Long
For i = 1 To 5
Select Case i
Case 1
Call f_verify_value_in_Array(aL1, i)
Case 2
Call f_verify_value_in_Array(aL2, i)
Case 3
Call f_verify_value_in_Array(aL3, i)
Case 4
Call f_verify_value_in_Array(aL4, i)
Case 5
Call f_verify_value_in_Array(aL5, i)
End Select
Next
End Function
Function f_verify_value_in_Array(pArray, pNumber As Long)
Dim aString() As String
f_verify_value_in_Array = False
aString() = Split(pArray, ",")
If (UBound(Filter(aString, pNumber)) > -1) Then
f_verify_value_in_Array = True
End If
End Function