The example navigates to a host screen named Page002.
Sub Main()
Dim Sys As Object, Sess As Object
Set Sys = CreateObject("EXTRA.System")
' Assumes an open session
Set Sess = Sys.ActiveSession
' Note that Page002 must have already been recorded
' for this to work.
Sess.NavigateTo ("Page002")
End Sub