Łańcuch przerwania oparty na postaci w VBA 2010

W programie Excel 2010, używając VBA, w jaki sposób mogę podzielić ciąg znaków, gdy znajdzie określony znak?

PowiedzmyA1 = "This is a | test of | the | emergency broadcast signal" I przypisuję to do zmiennej takiej jak

strColumnA = Range("A" & CStr(currRow)).Value

Teraz chcę dodać 4 nowe wiersze na końcu arkusza 2. Wszystkie kolumny A, jak:

A1 = "This is a"
A2 = "test of"
A3 = "the"
A4 = "emergency broadcast signal"

Jakieś pomysły?

questionAnswers(2)

yourAnswerToTheQuestion