This example saves a copy of the active session to a new session named SessionX.
Sub Main()
Dim Sys As Object, Sess As Object
Set Sys = CreateObject("EXTRA.System")
' Assumes an open session
Set Sess = Sys.ActiveSession
Sess.SaveAs ("SessionX")
End Sub