Please help with Macro

Hi all,

I have tried to figure out how to set up the macro for this EDI (electronic data interface) but I failed.

Below is the raw data:

ISA^00^          ^00^          ^01^943561654      ^ZZ^ZIMMERGHX      ^080415^2107^U^00400^831278475^0^P^>~GS^PO^HSS850^ZIMMERGHX^20080415^2107^239703^X^004010~ST^850^397030024~BEG^00^NE^4507986781^^20080415~N1^BT^CARDINAL HEALTH MED PRODS AND SRVCS~N3^HOSP. SUPPLY/SCIENTIFIC PROD^P.O. BOX 95300~N4^ALBUQUERQUE^NM^87199~N1^ST^Depew MPS VL^91^D0VN~N1^MF^ZIMMER INC^92^100345~N1^ST^CARDINAL HEALTH MED PRODS AND SRVCS~N3^Depew MPS VL^3356 Walden Avenue~N4^DEPEW^NY^14043~PO1^00010^48^EA^12^^CB^A058404200^VC^00058404200^HI^H1320005840420013~PID^F^^^^BINDER ABDOMINAL 12 46 TO 62L~PO1^00020^12^EA^135^^CB^A108600200^VC^00108600200^HI^H132001086002001~PID^F^^^^PILLOW ADBUCTION SET SMALL~PO1^00030^7^EA^13^^CB^A199100100^VC^00199100100^HI^H1320019910010011~PID^F^^^^SHOE POSTOP MENS SML~CTT^3^67~SE^18^397030024~GE^1^239703~IEA^1^831278475~

I would like to have the final result like this:

ISA^00^          ^00^          ^01^943561654      ^ZZ^ZIMMERGHX      ^080415^2107^U^00400^831278475^0^P^>~
GS^PO^HSS850^ZIMMERGHX^20080415^2107^239703^X^004010~
ST^850^397030024~
BEG^00^NE^4507986781^^20080415~
N1^BT^CARDINAL HEALTH MED PRODS AND SRVCS~
N3^HOSP. SUPPLY/SCIENTIFIC PROD^P.O. BOX 95300~
N4^ALBUQUERQUE^NM^87199~
N1^ST^Depew MPS VL^91^D0VN~
N1^MF^ZIMMER INC^92^100345~
N1^ST^CARDINAL HEALTH MED PRODS AND SRVCS~
N3^Depew MPS VL^3356 Walden Avenue~
N4^DEPEW^NY^14043~
PO1^00010^48^EA^12^^CB^A058404200^VC^00058404200^HI^H1320005840420013~
PID^F^^^^BINDER ABDOMINAL 12 46 TO 62L~
PO1^00020^12^EA^135^^CB^A108600200^VC^00108600200^HI^H132001086002001~
PID^F^^^^PILLOW ADBUCTION SET SMALL~
PO1^00030^7^EA^13^^CB^A199100100^VC^00199100100^HI^H1320019910010011~
PID^F^^^^SHOE POSTOP MENS SML~
CTT^3^67~
SE^18^397030024~
GE^1^239703~
IEA^1^831278475~

Can anyone please help? This character ~ is the key here. That character is the key to break the lines.

Thanks in advance!
YLT