Type Info:
XMLTool As XMLTool
Dim Tool As XMLTool Set Tool = Application.Tools.XMLTool MsgBox Tool.CheckMimeType("http://www.schaudin.com/picture.jpg")