What SW version are you running this macro on? And what is the macro supposed to do?
In the code below getInformation requires you to pass the component object. It seems to work if you change it to getInformation swComponent
For Each vComponent In allComponentsOutsideFolders(swAssy)
Set swComponent = vComponent
If Not swComponent Is Nothing Then
Vendor = getVendorStringFromComponent(swComponent)
User defined types must be declared at the top of your module, before any procedures or functions.
Jim is right. That "Option Explicit" statement is why you must.