Multiple USB Ids

Public Sub VisaresourceLoad()
        On Error Resume Next
        Dim Resourcemanager As New Ivi.Visa.Interop.ResourceManager
        Dim ArrayVisaResourcesLoad() As String
        ArrayVisaResourcesLoad = Resourcemanager.FindRsrc("?*INSTR")
 
        If ArrayVisaResourcesLoad.Length > 0 Then
            PSComboBox.Items.AddRange(ArrayVisaResourcesLoad)
            DMM1ComboBox.Items.AddRange(ArrayVisaResourcesLoad)
            DMM2ComboBox.Items.AddRange(ArrayVisaResourcesLoad)
            PS2Combobox.Items.AddRange(ArrayVisaResourcesLoad)
        End If
End Sub