d = 0
FOR c = 1 TO Len(TextArea1.Text)
sAppo = Mid(TextArea1.Text, c, 1)
IF sAppo <> "\n" THEN
sRiga[d] = sRiga[d] & Mid(TextArea1.Text, c, 1)
ELSE
d = d + 1
ENDIF
NEXTPuoi usare la funzione Split che suddivide una stringa in tante sottostringhe separate da un carattere particolare. In questo caso il carattere sarebbe "\n".
Su "Il resto del Pinguino" 0 trovi un bell'articolo dell'amico picavbg che spiega bene questa funzione...