Extracting Sub-folder From File String

I've got a host of files within a host of directories, e.g:

c:ContractsJim BobJim Bob Site.xls
c:ContractsJane JonesJane Jones Place.xls
c:ContractsJeremy HillsHills House Lvl 1.xls

I'm working in VBA to try to extract the site name from the file string. Unfortunately there is no other reliable location where I can find an accurate name of the site, so it needs to be taken from the second subdirectory. So I'm using the following code to get the file location:

Sub FilePicker(fileToOpen As String)
ChDrive "C:"
ChDir "C:Contracts"
fileToOpen = Application. GetOpenFilename(FileFilter:="PPM Files (*.xls),_
*.xls", Title:="Select a PPM Scope File", MultiSelect:=False)
End Sub

This returns a string along the lines of "c:ContractsJeremy HillsHills House Lvl 1.xls". From this string, I need to isolate the string "Jeremy Hills".