代码从VB6.0转化为VS2008的问题

Question

Private Sub Form_Load()
On Error Resume Next
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")
    For Each objItem In colItems
        a = objItem.DeviceID  'U盘识别为:USB\VID_09A6&PID_800\20040418154911-00，故用VID判别
        If a Like "*VID*" Then b = Split(a, "\"): MsgBox b(UBound(b)), 64, "U盘SN"
        '上句亦可:If InStr(a, "VID") Then b = Split(a, "\"): MsgBox b(UBound(b))
    Next
    End
End Sub
在VB6.0上能正常运行，但在VS2008上为什么不能正常运行