跪求高手帮我写一个控件

希望大家不要来鄙视我，我没学过VB，之前一直都是在C/C++板块混的
下面我有个从网上查到的VB的代码，是查询U盘的VID，我想弄成个控件，我可以引入到C程序中去，希望高手们帮我写下
Private Sub Command1_Click()
Text1.Text = CC
End SubFunction CC()
    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, "\")
        CC = b(UBound(b))
        '上句亦可:If InStr(a, "VID") Then b = Split(a, "\"): MsgBox b(UBound(b))
    Next
End Function我希望大家能够帮我写成一个ActiveX控件，我需要不带任何界面，只需要读取U盘的VID，返回一个带VID的字符串，如果读取不到，那么就直接返回一个空值，麻烦大家帮忙下！
谢谢了，祝大家新春愉快