Get any/all VISA-USB Addresses

I currently use:

Try
myInstr.IO = IoMgr.Open("USB0::0x05E6::0x2636::4351628::INSTR")
Catch ex As Exception
MsgBox("could not connect", vbOKOnly, "error opening connection")
myerror = True
End Try