Auto new folder and file from a macro enabled template

Hello all I am attempting to create a macro that will create a new folder on the network drive Arie:\quotes that will create the new folder and save the the file in the new folder. I need the name of the file and folder to be set to the master (worksheet) cell "B3". and then if possible have it be conditional that if cell "B40" on the same master (worksheet) has a value to have the value added at the end of the filename via hyphen. This workbook has numerous worksheets in it approx 15 worksheets. I am not sure if this is relevant.
As an brief example.
Cell "B3" on the master(worksheet) contains a job name I-40 bridge So initially I would like the Folder name and file name to be I-40 Bridge
However once the Cell "B40" has been filled in with the value 54213 then I would like the file to renamed to I-40 Bridge-54213 and saved within the same folder.
I am currently working with Excel 2007 Pro edition on windows 8. I
There are several other steps that I am trying to make macros for and I may require assistance on those also if I get stuck. Thank you in advance for any help you can offer me. I have found several other macro's that work with an auto save but i am unsure of how to change the directory to the network drive and show the correct file paths. This is the example of the macro I am currently working with.

Public Sub SaveAsA1()   
   ThisFile = Range("B3").Value  
   MkDir "C:\NewFolder"  
   ChDir "C:\NewFolder"  
   ActiveWorkbook.SaveAs Filename:=ThisFile  
End Sub