Function tyhikuAsukoht(nimi)
  tyhikuAsukoht = InStr(1, nimi, " ")
End Function

Function eesnimi(nimi)
  eesnimi = Mid(nimi, 1, tyhikuAsukoht(nimi) - 1)
End Function