Quando devi concatenare delle stringhe non devi usare il "+", devi usare il "&"
il "+" serve per i numeri, ecco perchè diceva che non può generare un "Double"
Dim myMailHTMLBody = "<html><head></head><body><br><br>" & prova & "<br>" & "<img src=cid:ThePictureID></body></html>"