Function kasLeidubHaapsalu2(linnaloetelu)
  leidub = "ei"
  For Each linn In linnaloetelu
    If UCase(linn) = "HAAPSALU" Then leidub = "jah"
  Next linn
  kasLeidubHaapsalu2 = leidub
End Function