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