I was just about to post this:
strAPDivNo = """" : strVendor = """" : strVendorName = """"
Set oVendor = oBusObj.AsObject(oBusObj.GetChildHandle(""VendorNo""))
retVal = oBusObj.GetValue(""ITEM.PrimaryAPDivisionNo$"", strAPDivNo)
retVal = oBusObj.GetValue(""ITEM.PrimaryVendorNo$"", strVendor)
retVal = oVendor.Find(strAPDivNo & strVendor) 'null padding not needed in this case
retVal = oVendor.GetValue(""VendorName$"", strVendorName)
sMsg = ""Primary Vendor = "" & strVendorName
retMsg = oSession.AsObject(oSession.UI).MessageBox("""", sMsg)