Dim i, cars(2) cars(0) = "Ford" cars(1) = "Audi" cars(2) = "Prius" For i=0 to ubound(cars) If cars(i) = "Audi" Then Exit For Next