Gracias Myakire
Finalmente lo he resuelto buscando por Google.
Hay una página interesante que trata el tema de Binario a Cadenas y viceversa, la adjunto para quien lo necesite:
http://www.motobit.com/tips/detpg_BinASP/
La solución ha sido esta:
Código:
'-- Verificación de estructura de fichero JPG válida
Function BinaryToString(dato)
Dim I, S, F
For I = 1 To 4 '-- Leemos marca SOI de 4 bytes FF D8 FF E0
S = S & Chr(AscB(MidB(dato, I, 1)))
Next
For I = (LenB(dato) - 2) To LenB(dato) '-- Leemos marca EOI de 2 bytes FF D9
F = F & Chr(AscB(MidB(dato, I, 1)))
Next
BinaryToString = S & F
End Function
Luego verificamos si
SOI y
EOI existen:
Código:
bString = BinaryToString(objHttp.ResponseBody)
If bString = "ÿØÿà ÿÙ" Then
HayFoto = "1"
Else
HayFoto = "0"
Set objHTTP=Nothing
End If
Con esto conseguimos finalmente bajar un fichero JPG y verificar que su estructura es correcta.