Dim MyString, TrimString, RightTrimString, FinalString
MyString = "dossier1\dossier2\123-Mayrou\forum"
MyStringNr = Len(MyString)
MsgBox MyStringNr
LeftTrimStringNr = InStr(MyString, "Mayrou")
MsgBox LeftTrimStringNr
RightTrimString=Right(MyString, MyStringNr - (LeftTrimStringNr-1))
MsgBox RightTrimString
FinalString = Left(RightTrimString,Len("Mayrou"))
MsgBox FinalString