仅从文件名中检索扩展名

Dim fso As New Scripting.FileSystemObject
Debug.Print fso.GetExtensionName("MyFile.something.txt")

打印 txt 请注意，GetExtensionName() 方法已经处理了文件名中的多个句点。