Far mostrare in un DialogBox l'estensione dell'ultimo file precedentemente aperto

Poniamo il caso di volere che nel ComboBox, denominato Tipo di File, all'interno della finestra di dialogo OpenFile, o di quella SaveFile, venga scritta l'estensione dell'ultimo file precedentemente aperto, o - nell'altro caso - dell'ultimo file precedentemente salvato.

Potremo utilizzare ad esempio il seguente codice:

Private percorso As String


Public Sub Form_Open()

 percorso = "*.*"

End

Public Sub Button1_Click()

 With Dialog
   .Filter = ["*." & File.Ext(percorso), "File "])
   If OpenFile() Then Return   ' oppure ".SaveFile"
   percorso = .Path
 End With

End