Inserire immagine su userform [CHIUSA - RISOLTA]

Sub InserisciImmagine()
Dim sImmagine As String

'Apro la finestra di dialogo con il metodo "GetOpenFilename"
sImmagine = Application.GetOpenFilename

'verifico che non ho annullato l'operazione, cliccando sulla X rossa, o sul pulsante "Annulla"
If sImmagine <> "Falso" Then
   
   'nel caso l'immagine non fosse valida, o per problemi di caricamento immagine nel frame, gestisco l'errore

   With UserForm1.Image1
        .Picture = LoadPicture(sImmagine) 'immagine nel frame
        .PictureAlignment = 2 'immagine al centro del frame
        .PictureSizeMode = 1 'immagine su tutta la superfice del frame
   
        'in caso di errore svuoto il frame, avviso ed esco
        If Err.Number <> 0 Then
            .Picture = LoadPicture("")
            MsgBox "Immagine non valida o problemi di caricamento immagine", vbCritical, "ERRORE"
        End If
    End With
   
    On Error GoTo 0

Else
    MsgBox "Operazione Annullata", vbExclamation
    Exit Sub
End If
UserForm1.Show
End Sub