Sub LastBit()
Dim textBits As Variant
Dim myPath As String
Dim fName As String
Dim shortName As String
myPath = "C:UserswebmaxlDocumentsDelhi.xls"
textBits = Split(myPath, "")
fName = textBits(UBound(textBits))
shortName = Left(fName, (InStrRev(fName, ".", -1, vbTextCompare) - 1))
MsgBox "File name is: " & shortName
End Sub