Dim lPos As Long
Dim strFilename As String
Dim strDocName As String
 
strFilename = "C:TestordnerTestunterordnerKundexy.doc"
 
lPos = InStrRev(strFilename, "\")
strDocName = Mid$(strFilename, lPos + 1)
lPos = InStr(strDocName, ".")
strDocName = Left$(strDocName, lPos - 1)
 
MsgBox strDocName