Set diaglogfile = Application.FileDialog(msoFileDialogSaveAs)
stelt een FileDialog object in. Om het zichtbaar te maken heb je een Show methode nodig.
Daarom zal je heel vaak zien
'Maak de Filedialog zichtbaar
Dim Keuze as integer
Keuze= Application.FileDialog(msoFileDialogSaveAs).Show
' Als Keuze niet 0 is, heeft de gebruiker een locatie en naam geselecteerd
if Keuze <> 0 then
'Verwerk dan wat je wilt doen
'Je kan denk ik maar in keer een Set Image doen
end if