Get partial string from ActiveWorkBook.Path

I tend to stumble when trying to pull certain characters from strings, not sure how to stop and start my search.

Dim sWbPath and sWbPathCust as Strings.

sWbPath = ActiveWorkbook.Path
Which is:

F:\CNC Mill\#19 CNC CMM\Inspection Reports\SUNSTR\4503124\Results\33162-1\20

The portion of text in Red is what I need from this path for another variable.

sWbPathCust = sWbPath (some method of extracting the string)

This portion of the path will always be the same:

F:\CNC Mill\#19 CNC CMM\Inspection Reports\

The remainder changes for many customers and part numbers.
"SUNSTR\" = Customer and "4503124\" = Part Number
The character length of Customer and Part Number varies for each. The only constants are the two "\" (Back slashes) after "Inspection Reports\".

Any hints, tips and or examples are appreciated.