Dim arr(3) As String
arr(0) = "ahmed"
arr(1) = "mohamed"
arr(2) = "hassan"
arr(3) = "mahmod"
MsgBox(Array.Find(arr, Function(obj As String) As Boolean
Return obj = "ahmed"
End Function))
Dim arr(3) As String
arr(0) = "ahmed"
arr(1) = "mohamed"
arr(2) = "hassan"
arr(3) = "mahmod"
For Each i In Array.FindAll(arr, Function(obj As String) As Boolean
Return obj.Contains("m")
End Function)
ListBox1.Items.Add(i)
Next
Dim arr(3) As String
arr(0) = "ahmed"
arr(1) = "mohamed"
arr(2) = "hassan"
arr(3) = "mahmod"
MsgBox(Array.FindIndex(arr, Function(obj As String) As Boolean
Return obj = "hassan"
End Function))