Function kasLeidubHaapsalu(linnaloetelu)
  leidub = "ei"
  For Each linn In linnaloetelu
    If linn = "Haapsalu" Then leidub = "jah"
  Next linn
  kasLeidubHaapsalu = leidub
End Function