طلب كود Excel VBA

[melkismail]

الرجاء المساعدة في كود البحث عن اخر كلمة في جملة 

مثلا اريد استخراج الكلمة "DATA.xls" من D:\Programation\VISUAL STUDIO\Projectes\DATA.xls

 

[lionheart]

Sub Test()
    Dim s$
    s = "D:\Programation\VISUAL STUDIO\Projectes\DATA.xls"
    MsgBox Split(s, "\")(UBound(Split(s, "\")))
End Sub