>>696
ファイル名の拡張子を消したいなら
   FSO(File System Object)の  GetBaseName()
  又は
   Left(ファイル名, InStrRev(ファイル名, ".") - 1)

単純に 後ろ4文字削除したいだけなら
 Left(文字列, Len(文字列) - 4)