Function viimanetaht(nimi)
  viimanetaht = Mid(nimi, Len(nimi), 1)
End Function