Formulario con botón para agregar fotografías en un cuadro de imagen

hola buen dia

tengo un formulario en donde puse un botón para seleccionar una foto y esa foto me muestre en un cuadro de imagen que esta en el mismo formulario

como le puedo hacer ya tengo un poco de código y si me deja buscar la imagen pero no me la pega

Private Sub CommandButton1_Click()

Dim ruta As String
ruta = Application.GetOpenFilename

On Error Resume Next

With Image

.Visible = msoTrue

.UserPicture ruta .

TextureTile = msoFalse

End With
End Sub

espero me puedan ayudar