Extraction formula help

jklemm1 

Sub extract()

Dim i As Long
Dim j As Long
Dim first As Long
Dim second As Long
Dim third As Long

j = Range("B" & Rows.Count).End(xlUp).Row

For i = 2 To j

first = Application.WorksheetFunction.Find("-", Cells(i, 2))
second = Application.WorksheetFunction.Find("-", Cells(i, 2), first + 1)
third = Application.WorksheetFunction.Find("-", Cells(i, 2), second + 1)

Cells(i, 3).Value = Mid(Cells(i, 2), first + 1, second - first - 1)
Cells(i, 4).Value = Mid(Cells(i, 2), second + 1, third - second - 1)

Next i

End Sub

Another alternative could be VBA code. In the attached file you can click the button in cell F2 to run the macro.

jklemm1 

I've copied your data and pasted it in the blue table. Then i clicked in any cell of the green table, right-clicked with the mouse and selected refresh.

There are several free tutorials on the internet if you want to start with Power Query. I personally learned a lot about Power Query by the solutions provided by the experts of the Microsoft Tech Community. 

In the attached file you can view the Power Query Editor, the applied steps and formulas:

In the Power Query Editor you can follow the steps of data manipulation:

You can as well view the formulas that created the query: