Well at a glance, the code labels each file with the object type, so when you are loading them back in check the filename and replace the constants accordingly.
select case true
case left(filename,len("form_")) = "form_"
Application.LoadFromText acForm, filenameWithoutType...