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

Poniamo il caso di volere che 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