I do believe I'm losing my mind.
Please apply the following code to an object:
'Called when files are dropped onto object
Sub Object_OnDropFiles(files)
strExtension = Right(files,Len(files)-InStrRev(files,"."))
msgbox strExtension
msgbox Len(strExtension)
End Sub
Now, drag and drop an image file onto it.
The first msgbox should show the file extension. The second msgbox should show how many characters are in the extension.
EDIT:
Only one problem: The number of characters is 4 instead of 3.
