Private Const Pfad = "Models"
Private Const sPath = "D:\Spiele\Test\Models\Skins\Player\Monster"
 
Private Sub Command1_Click()
Dim i, i2
i=InStr(1, sPath, Pfad)
If i=0 Then Exit Sub
i2=Instr(i+Len(Pfad)+1, sPath, "\")
If i2=0 Then i2=Len(sPath)
MsgBox Mid(sPath, i+Len(Pfad)+1, i2-(i+Len(Pfad)+1))
End Sub