seems a very efficient use of a VBA Strings Function
This is not so good , but the best I could think of
Trim(Left(Replace(ThisWorkbook.Name, ".", Space(100), 1, 1), 50))