僅從檔名中檢索副檔名

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

列印 txt 請注意，GetExtensionName() 方法已經處理了檔名中的多個句點。