How can I use a for each loop on an array?

Question

I have an array of Strings:

Dim sArray(4) as String

I am going through each String in the array:

for each element in sarray         


        

Answer 1

what about this simple inArray function:

Function isInArray(ByRef stringToBeFound As String, ByRef arr As Variant) As Boolean
For Each element In arr
    If element = stringToBeFound Then
        isInArray = True
        Exit Function
    End If
Next element
End Function