Function eesnimi2(nimi)
  eesnimi2 = Mid(nimi, 1, InStr(1, nimi, " ") - 1)
End Function