Function kasEestiLinn(linnanimi)
  Dim linnanimed(4) As String
  linnanimed(0) = "Paide"
  linnanimed(1) = "Jõhvi"
  linnanimed(2) = "Pärnu"
  linnanimed(3) = "Haapsalu"
  linnanimed(4) = "Tartu"
  leidub = "ei"
  For Each linn In linnanimed
    If linnanimi = linn Then leidub = "jah"
  Next linn
  kasEestiLinn = leidub
End Function