La fonction SPLIT

Bonjour,

J'utilise ce code pour transformer ma chaine de caractères,
Code:

1 2 nbrnom = 3 machaine = Left(machaine1, nbrnom) & " " & Mid(Split(machaine1, " ")(1), 1, 1) & "."
Résultats :

LEGRAND Julie -> LEG J.
DUPONT André -> DUP A.
VERLINDISNSKI Amélia -> VER A.

J'aimerais maintenant pouvoir afficher :

LEGRAND Julie -> LEGRAND J. (si nbrnom = 99)
DUPONT André -> DUPONT A. (si nbrnom = 99)
VERLINDISNSKI Amélia -> VERLINDISNSKI A. (si nbrnom = 99)
VERLINDISNSKI Amélia -> VERLINDI A. (si nbrnom = 8)

Mais je ne trouve pas comment lui dire de prendre x nombre de caractères jusqu'à un espace ou de s'arrêter à cette espace (voir exemple avec VERLINDISNSKI Amélia...

Merci d'avance pour votre aide :-)