Dim pcbApp
Set pcbApp = GetObject(, "MGCPCB.ExpeditionPCBApplication")
Dim pcbDoc
Set pcbDoc = pcbApp.ActiveDocument

Dim key
key = pcbDoc.Validate(0)
Dim licenseServer
Set licenseServer = CreateObject("MGCPCBAutomationLicensing.Application")
Dim licenseToken
licenseToken = licenseServer.GetToken(key)

msgbox licenseToken