The example opens a session called Session1.
Sub Main()
Dim Sys As Object, Sess As Object
Set Sys = CreateObject("EXTRA.System")
Sys.Sessions.Open("Session1.EDP")
End Sub