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

Mostriamo come fare, affinché nel ComboBox, denominato Tipo di File, all'interno della finestra del Dialog per l'apertura dei file (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