...ByVal vbNullString, 0)
'Set the string to the right size to hold all the bin names
'24 chars per name
sNamesList = String(24 * iBinNames, 0)
'Load the string with the bin names
iBinNames = DeviceCapabilities(sCurrentPrinter, sPort, DC_BINNAMES, ByVal sNamesList, 0)...