Function esitahtVaiksena(sona)
  esitahtVaiksena = LCase(Mid(sona, 1, 1))
End Function