Hello,
what You have to do is
1) ask the document path and get length of that string
iLength=Len(MyDoc.Path)
2) strip of the path from the full name
sName=Right(MyDoc.FullName,len(MyDoc.FullName)-(iLength+1))
The syntax may not be 100% correct, but You got the idea?