Macro to locate folder in a folder and save

I HAVE MANAGED TO GET IT TO SAVE ALMOST IN THE RIGHT FOLDER
ITS NOW SAVING TO C:\Documents and Settings\st\Desktop\OJF\

BUT ITS NOT OPENING THE FOLDER WITHIN THE ODF FOLDER IN THIS CASE
1

ITS ALSO SAVING AS
1Supply only trail
where as i want it to save in the right folder which is 1
but i also want it to save as "1 parking form"