Dim WMI_Return As ManagementObjectCollection
        Dim WMI_Search As ManagementObjectSearcher
        Dim WMI As ManagementObject
        WMI_Search = New ManagementObjectSearcher("SELECT * FROM" & _
          "Win32_PnPEntity WHERE PNPDeviceID =" & _
          "'USB\\VID_0925&PID_1234\\5&1DAAE7BB&0&1'")
        WMI_Return = WMI_Search.Get
        For Each WMI In WMI_Return
            Me.TextBox1.Text = WMI("Name").ToString()
        Next