OpenSTAAD V8i
This function exits the STAAD.Pro application environment.
Dim objOpenSTAAD As Object 'Get the application object Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD") 'Quit Application environment objOpenSTAAD.Quit