Extract text from column

[sswcharlie]

I have a long column of info as below. I want to extract (the name changes)-​

"SEAPORT TWN" etc and also "01.30" and place into separate columns say G1 and H1​

​

​

**​

TOWN STOP---SEAPRT TWN Arriving at 01:30​

TOWN STOP---PRARIE TWN Arriving at 02:00​

etc​

***​

The data column varies in length and there are rows with irrelevant information.​

Length of name changes​

Want to use VBA.​

​

Can someone set me on the right course​

​

Thks​

Charlie​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​