Advanced Label Expression script

Hi, a kind contributor in the forum previously helped me write a script for my work. Basically he helped me to cut down on the [SPECIES] species name label for example, from "Felis catus Linnaeus 1758" to "Felis catus". The script is below:

Function FindLabel ( [ID] , [SPECIES] )
FindLabel = [ID] & vbnewline &_
"<FNT name='Arial' size='7'>" & Split ( [SPECIES] ) (0) & " " & Split ( [SPECIES] ) (1) & "</FNT>"
End Function

Now I encountered two problems.

1) Some of the points have empty [SPECIES] species name. When this happens, such points will not be labelled at all.
2) The number of letters in the second word of the [SPECIES] species name is very long. Is it possible to restrict it by a certain number of letters for "Split ( [SPECIES] ) (1)"?

Does anyone have any solutions to these two problems?

Appreciate the help!

Siyang
uforest.org