try this Text1.Text = Split(Filename, ".")(0) This splits the string using the "." as a delimeter and returns the first element.
@Andre, did you by chance mean to use InstrRev in line 6 of your code?
Here's my entry for this mundane function.
This will return any filename without the extension, even if it is without one already, or if there are multiple periods, it will return everything except after the last period.
It's amazing how much we've forgetten when we're reverting to this ancient technology lol.