change this
FileCopy "sDest" & "sSource", "sDest" & "ADMINIMPORT.txt"
FileCopy "sDest" & "sSource", "sHist" & Forms![FrmMain]![Combo1]
to
FileCopy sSource & Forms![FrmMain]![Combo1], sDest & "\" & "ADMINIMPORT.txt"
FileCopy sSource & Forms![FrmMain]![Combo1], sHist & "\" & Forms![FrmMain]![Combo1]