GetExtensionName Method

From Office VBScript