Potresti splittarli in un array con la funzione split secondo il carattere chr(10) (o vbcrlf), ordinare gli elementi del vettore.. e riscriverli..

Ciao!!!!