Function esitahtSuurena(sona)
  taht = Mid(sona, 1, 1)
  suurtaht = UCase(taht)
  esitahtSuurena = suurtaht
End Function