Hola!!! En la línea:
 
If InReplyTo <> 0 And InReplyTo <> "" Then 
Me da el siguiente error: 
"Error d eMicrosoft VBScript en tiempo de ejecución,No coinciden los tipos : '[string: ""]' (Line:300, Char:1, Context:0)  
¿Alguien sabe porqué?? ¿Qué puedo hacer??? 
Llevo horas dándole vueltas y seguro que al final es unta tonteria!!!  
 
  
Muchas GRACIAS!!!!