Removing Certain characters from a cell value

I have a program that populates cells with the files it finds in a particular folder.

While doing so, it copies the file extensions as well.

I have a code that goes through each and tells the user what type of extension the file is. This is the code

Please Login or Register  to view this content.

What I need,

• Instead of indicating the extenion, I want the code to remove the extension and copy just all characters except the file extensions.

Example.
if Range B4 was a0099A14.pdf, the code should populate just a0099A14 in cell.Offset(0, 2)

• I tried using Right command but it returns the value. How can I get to remove everything what the Right command finds? As all extensions are 4 characters and are at the end of the filename