Получить название монитора и его серийный номер - Visual Basic .NET

Option Explicit
 
Private Sub Form_Load()
    Dim strComputer, objWMIService, colItems, objItem
    
    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate,authenticationLevel=Pkt}!\" _
      & strComputer & "\root\wmi")
    
    Set colItems = objWMIService.ExecQuery _
      ("SELECT * FROM WMIMonitorID")
    
    For Each objItem In colItems
        Debug.Print MakeString(objItem.SerialNumberID)
    Next
    
End Sub
 
Private Function MakeString(v) As String
    Dim i As Long
    
    For i = LBound(v) To UBound(v)
        MakeString = MakeString & Chr$(v(i))
    Next
    
End Function