This example displays the current version of EXTRA!.
Sub Main()
Dim Sys As Object
Set Sys = CreateObject("EXTRA.System")
MsgBox "The current version of EXTRA! is " + Sys.Version + "."
End Sub