Private Sub Command1_Click() Dim aArray Dim intI As Integer aArray = Array("apple", "orange", "coconut", "banana") For intI = LBound(aArray) To UBound(aArray) If aArray(intI) = "banana" Then MsgBox "banana found at item " & CStr(intI) Exit For End If Next intI End Sub>Hi, how can i get the position of value of "Banana" into a array?