Function esitaht(sona)
  esitaht = Mid(sona, 1, 1)
End Function