拡張子以外のファイル名を取り出す

ファイル名を取り出すのは，
filename_get = Activeworkbook.name

とやればfilename_get変数に取り出すことが出来るがこのとき.xls(拡張子）が邪魔になることがある。この拡張子以外のファイル名を取り出す方法を考えました。多分こんな風にすれば出来る。

【用例】
filename = Left(ActivePresentation.Name, InStrRev(ActivePresentation.Name, Chr(46)) - 1)

【説明】
InstRevは右側からChr(46)(これは．[ドット]を表示すASCII番号)の文字のある場所を検索しそれを左側から何文字目かを取り出す関数。これとLeft関数（左側から何文字目までを切り出すか？を示す関数）を合体することで見事拡張子以外のファイル名を取り出すことが出来た。すばらしい。