I don't have any SolidWorks available now but from reading your code I think you could change the save statement to:
swDrawModel.Extension.SaveAs sOutputFolder & swModel.GetTitle() + ".slddrw", swSaveAsVersion_e.swSaveAsCurrentVersion, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing, 0, 0
Just a hint
Your macro will loop thru all configurations and then overwrite all of them since you part name is same. So do you want to change that.
For setting the drawing name as part name use. This works great when you've show extension for known files selected under folder options in windows explorer.
Dim sFileName As String
sFileName = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1)
sFileName = Left(sFileName, InStrRev(sFileName, ".") - 1)
sFileName = sFileName & ".SLDDRW"
As for the saving in same folder:
swDrawModel.Extension.SaveAs sOutputFolder & sFileName , swSaveAsVersion_e.swSaveAsCurrentVersion, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing, 0, 0
i didnt understand what should i do with the folder option.