Excel 如何VBA语句查找指定字符在字符串中出现的最后一次的位置？

要把文件名的后缀去掉，所以要查找“.”，在字符串中最后出现的位置并把文件名后缀去掉。
例如我要把文件名“Book2019.04.09.001.xlsx”或“Book2019.04.09.001.xlsm”后缀去掉，保留"Book2019.04.09.001"，那就要查找"."最后出现的位置并把后面的字符串都去掉。问题来了，怎样用VBA语句找到这个"."字符最后出现的位置呢？

Mid、Split、Replace 这三个函数都可以 Sub test()   s1 = "123.456.xlsx"   s2 = Left(s1, InStrRev(s1, ".") - 1) End Sub