Dim My_String
Dim My_Array
My_String="LIST;11;15;13;16; "
My_Array=split(My_String,";")
For Each item In My_Array
If Item = 16 Then
IsInArray = True
Exit For
End If
Next
If IsInArray Then
'16 Fanns i Arrayn
End If
Hade gjort en ny funktion istället:
Function InArray(Value, ArrayList)
Dim i
InArray = False
If IsArray(ArrayList) Then
For i = 0 to UBound(ArrayList)
If Value = ArrayList(i) Then
InArray = True
Exit Function
End If
Next
End If
End Function