Function nimiKorralikult2(nimi)
  nimiKorralikult2 = UCase(Mid(nimi, 1, 1)) & LCase(Mid(nimi, 2))
End Function