Hem / Tips & tricks
Dim rtn As LongDim clsVBRasDevInfo() As VBRASDEVINFOrtn = VBRasEnumDevices(clsVBRasDevInfo)For j = 0 To rtn - 1 Debug.Print clsVBRasDevInfo(j).DeviceName Debug.Print clsVBRasDevInfo(j).DeviceTypeNext j