Not sure I copy what it is that you are seeking (you want to crop out
everything to the right of ... as well as everything to the left of).
Whouldn't that leave you with /?

Do you mean you want to keep everything to the left?  If so, perhaps:

Sub Scratchmacro()
Dim pStr As String
Dim i As Long
pStr = "Day 7 of a / new dark age"
MsgBox Left(pStr, InStr(pStr, "/"))
End Sub

myStr = "before / after"
'value of myStr is "before / after"

myStr = Split(myStr," /")(0)
'value of myStr is "before"

Andrew V