Modificar codigo WMI para ser usado desde VBA Excel

Buenas tardes: Necesitamos corregir este codigo que lo que muestra es los numeros de serie de los monitores conectados al computador. Actualmente el codigo al ser ejecutado muestra los dos codigos correspondientes a 2 monitores conectactos de forma independiente en msgbox separados se requiere que el codigo muestre un solo msgbox con los 2 monitores strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\WMI") Set colMonitors = objWMIService. _ ExecQuery("SELECT * FROM WmiMonitorID") For Each objMonitor in colMonitors 'Convert serial number to ASCII SerialNo = "" For I = 0 To Ubound([login to view URL]) SerialNo = SerialNo & Chr([login to view URL](I)) Next MSGBOX SerialNo Next