Effettivamente nella ricerca dei file non c'è la selezione dei ".sav" ma viene cancellato qualsiasi file.
Devi modificare l'estensione in questo modo :

codice:
FileName = Dir(Percorso & "*.sav")
La procedura la richiami dopo un evento, ad esempio dopo aver premuto un pulsante passando come parametro il percorso, contenuto magari in una TextBox. Avrai quindi :

codice:
Private Sub Command1_Click()
  Call CancellaFile(Text1.Text)
End Sub
Se invece il programma non ha particolari esigenze e quindi non devi cancellare file ".sav" in percorsi differenti, non richiami la procedura ma la applichi direttamente nell'evento impostando un percorso fisso.

OK ?