Array Icinde Arama

Sub ArrayIcindeArama()
  k = Array("Ali", "Ahmet", "Hasan", "Mehmet", "Veli")
  m = Filter(k, "Ali", True, 0)
  If UBound(m) <> -1 Then
    MsgBox m(0)
  Else
    MsgBox "Bulunamadı"
  End If
End Sub