I've rechecked this and found that I was using the wrong container name. So the code is correct. I had assumed that the correct blob had been found because the code didn't fail on the line:
Dim blockBlob As CloudBlockBlob = container.GetBlockBlobReference("photo1.jpg")
but it can't have been because the container name was incorrect!