Código:
Pero como lo hago para que coja el ancho de una imagen de una url, empezando por http:// , que no esté en el servidor?? Private Function GetImageWidth(byVal strPath)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(strPath) then Exit Function
set myImg = loadpicture(strPath)
GetImageWidth = round(myImg.width / 26.4583)
set myImg = nothing
End Function

es lo correcto. Creo recordar que la web de caricato, un administrador del foro de js, hay algo de eso
aunque casi seguro que será en PHP. De cualquier modo podría echarle un vistazo
