Dim PCDMISapp As Object
Dim PCDMISPart As Object

Set PCDMISapp = CreateObject ("PCDLRN.Application")
Set PCDMISPart...