Seninki düşürür,
Diğer yöntem senin ki ile aynı;
Kod:
dim varmis, veriler
veriler = Array("ali","veli","deli")
for i = 0 to 2
if Instr(veriler(i),"ali")>0 then varmis = true
'// Bu da eğer varsa demek yani direk eşitlik değil içinde geçiyotsa kontrolü
next