ItemArray

Public Function AIsInArray(ByVal arrArray As Variant, _
ByVal varItem As Variant) As Boolean
'Determina se un item esiste nell'array

Dim i As Integer
For i = LBound(arrArray) To UBound(arrArray)
'loop sequenziale su tutto l'array

If arrArray(i) = varItem Then
'fine

AIsInArray = True
Exit For
End If
Next i
End Function