Extracting file extension

[Terry Cornwell]

Or to be a padantic pain in the arse,

In two lines

Dim fs as New Scripting.FileSystemObject
MsgBox fs.GetExtensionName("c:/extension.txt")

Terry