Prompt user for directory and filename; then save file in directory with file name

I am trying to prompt the user for the directory to be saved in and file name to be saved as; then save the workbook in the input directory with the inputted file name.

Sub RFIFORMSave()

    FILDIR = InputBox("Please enter the File directory you want to save to:", "Working Directory")
    
    ChDir FILDIR
    
    SAVENAME = InputBox("Please enter the name you would like to save the Request for Information as:")
    
    ActiveWorkbook.SaveAs Filename:= _
        FILDIR"\SAVENAME.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        
        
End Sub