Function nimepikkus(nimi)
  nimepikkus = Len(nimi)
End Function