谁能帮助我,将下面的这段代码按我说明的要求给改一改.先谢谢了!

[b]修改后的代码要求做到:[/b]

1、如果检测出没有U盘时，提示“没有找到U盘，请插入后重试。”点可以重试三次后提示“找不到U盘，程序将退出。”点[确定]后关闭程序。

2、如果检测到U盘，则验证序列号。
  （1）若U盘正确，则执行打开[Form2]窗口后关闭[Form1]窗口；
  （2）若U盘不正确则提示“不是正确U盘，程序将退出。”点[确定]后关闭程序。

3、所有提示窗口均使用自定义窗口。


[u][b]附原代码如下：（原代码达不到我的要求，同时运行次序也不对，所以求高手修改）[/b][/u]

Private Sub Form_Load()
  Dim objWMIService As Object
  Dim colItems As Object
  Dim objitem As Object
  Dim a, b, c, d, e, U_Dist
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")
  For Each objitem In colItems
    a = objitem.DeviceID
    If a Like "*VID*" Then
      b = Split(a, "\")
      c = Split(b(UBound(b) - 1), "&")
      d = Split(c(UBound(c) - 1), "_")
      e = Split(c(UBound(c)), "_")
      U_Dist = d(UBound(d)) + e(UBound(e)) + b(UBound(b))
      If U_Dist = "17EF3818AA08071700001558" Then Exit Sub   'U盘物理序列号
        Formhy1.Show
        Formhy1.Refresh
        Load Formhy2 '装入慢速窗体
        Formhy2.Show '显示慢速窗体
        Unload Formhy1 '卸出快速窗体
   End If
  Next
  'MsgBox "找不到正确U盘，系统将退出！" '启用内置提示窗口
  FormUDDts2.Show '启用自定义提示窗口
End Sub