'Will return whether an element is present in the array Public Function IsInArray(values() As String, ByVal whatToFind As String) As Boolean Dim i As Integer i = 0 While i < UBound(values) And values(i) <> whatToFind i = i + 1 Wend IsInArray = values(i) = whatToFind End Function