ho trovato un piccolo errore:

sostituire questa riga:
codice:
 ultimoSpazio = subLinea(j).LastIndexOf(" ", 44) + 1
con questa:
codice:
ultimoSpazio = subLinea(j).LastIndexOf(" ", xLen) + 1