dim fruit1 as string

fruit1 = "apple"

for i = 1 to 10
if range("A1")=("fruit" & i) then
......

how can I show fruit1 = apple?