It could be usefull when you have something like 25 configurations...
Try this, I also included the swp just to make it easy but wanted to include the code as well in case someone wanted to add anything or suggest a better way.
Dim swApp As Object
Dim instance As SldWorks.IModelDoc2
Dim swConfig As SldWorks.Configuration
Dim ConfigList As Variant
Dim Config As String
Dim u As Long
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Set swApp = Application.SldWorks
Set instance = swApp.ActiveDoc
ConfigList = instance.GetConfigurationNames
For u = 0 To UBound(ConfigList)
Config = ConfigList(u)
Set swConfig = instance.GetConfigurationByName(Config)
longstatus = instance.SaveAs3("your file location.stl", 0, 0) 'you can put whatever file type you want after your location.
'MsgBox (Config) 'For error checking configs
'With ConfigBox 'for use with a userform
Retrieving data ...