Could anyone help me with the following code?

How do I add filters in order to accept excel extensions only upon saving file? tried a few and can't seem to make it work within this one?

vPeriod = "P9"

Dim Filename As String

   Filename = (vPeriod)
   Application.Dialogs(xlDialogSaveAs).Show (Filename)