Vba to Return the Term located between first two Dashes

Hi Everyone,

I'm using the following code to add cell values to a worksheet based on the value from another.

My problem is that I do not wish for it to grab the entire cell value. I only want it to take the value found between the first dash to the second dash.

I would also like to be able to use this code in other situations. i.e. take the value found from the second dash to the third. So having a selection for me to assign the number of dashes would be great!

            Cells(j, 1).Value = Sheets(WS).Cells(2, Col).Value      'Date
            Cells(j, 3).Value = Sheets(WS).Cells(Rw - 4, Col).Value    'Project

A typical value that would be found in cell (j,3) is Microsoft-Jordan-Excel Forum

Having a way to identify just "Jordan" from the term above would be great!

Thanks Heaps in advance