Loading an image into Userform.Image and loss of image quality

I have code that adds images from a selected folder to cells. Everything works, but not always - on two out of four computers it works, but on the other two it doesn't. What's going on with the non-working computer:

When trying to rotate the image by 90?, it does not reload the rotated image into userform.image (it displays as if it were an empty shape) Additionally, is there a way to perform this operation without losing image quality, because later when I display the image in a Windows program by clicking on it in the cell, it is enlarged and the quality of the image is greatly reduced (hardly visible).

There are two questions: How can I do this so that the image quality is better when displayed, and why doesn't this code work on all computers? sample file attached.