Almacenar imagen en un botón

Buenas noches

llevo ya un mes tratando de hacer esto y necesito que me den una mano

Private Sub cmdGetFile_Click()
Dim fd As FileDialog
Dim ffs As FileDialogFilters
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
Set ffs = .Filters
With ffs
.clear
.add "Pictures", "*.jpg"
End With
.AllowMultiSelect = False
If .show = False Then Exit Sub
Image1.Picture = .SelectedItems(1)
End With
Exit Sub
End Sub

el siguiente código me busca en una ruta de windows una imagen y me la asigna a un botón

cmdGetFile

Mi problema es que necesito que esta quede grabada.

Osea al cerrar mi formulario esta imagen quede grabada en el botón, pero no se que propiedad utilizar.