Macro para cargar imagen en userform

------------------

Hola

Podrían ayudarme con esto

Tengo una lista de suministros en la columna A y cada uno tiene una imagen con el nombre del item en una carpeta

Cuando selecciono un item en el userform aparece su imagen en un cuadro pero hay algunos items que no tiene imagen todavía por lo tanto cuando lo selecciono en el userform debería aparecer vacío el cuadro de imagen pero eso no sucede.

Resulta que aunque no tenga imagen, en el cuadro de imagen se queda la ultima imagen mostrada de otro item.

Utilizo este código para mostrar las imágenes

Private Sub txtNomeEmpresa_Change()
Dim ima As String

ima = ThisWorkbook.Path & "\img\" & txtNomeEmpresa & ".jpg"
On Error Resume Next
Image1.Picture = LoadPicture(ima)
End Sub

Ima es el nombre de la carpeta donde están guardadas las imágenes

Image1 es el nombre del cuadro de imagen en el userform