Application VisualBasic Script

Sub SimpleGetSaveAsFilename() 
    Dim sFile As String 
    sFile = Application.GetSaveAsFilename 
    Debug.Print sFile  
End Sub