Find all Instruments on GPIB using VBA

Is there a way to find all intruments on a GPIB. I want to basically do what NI max does when you can view each instrument and then put the instuments in a array. I found this example but does not work for me. Any ideas on how I can do this.

Dim vs As NationalInstruments.VisaNS.ResourceManager
Dim resources() As String

vs = NationalInstruments.VisaNS.ResourceManager.GetLocalManager
resources = vs.FindResources("GPIB?*INSTR")