vb怎么判断注册表软件是否注册

我做了个VB注册框；通过硬件机器码来注册的！！！
我意思就是点击注册时！！他能自动把正确的注册码写入注册表中 下次运行软件通过判断注册是否已注册 如果没注册或注册码错误就要求注册才能运行软件！下面是我的注册框的一段源码！！望高手能帮帮小弟！
Private Sub Command2_Click()
If Trim(Text2.Text) = pMD5(pOri) Then
Form2.Show
Else
Label3.ForeColor = &HFF&
Label3.Caption = "注册码错误;请重新输入"
End If
End Sub

Private Sub Form_Load()
Text1.Text = pOri()
If Right(App.Path, 1) = "\" Then
FilePath = App.Path & App.EXEName & ".exe"
Else
FilePath = App.Path & "\" & App.EXEName & ".exe"
End If
End Sub

怎么用vb判断电脑中是否存在office软件 vb里怎么判断窗口是否隐藏？ VB怎么判断进程是否存在 怎么让软件不注册表不注册 怎么判断用户ID是否被注册 VB软件注册问题 VB中怎么判断一个文件夹是否存在？ vb怎么判断commdialog是否点击了的取消按钮？ vb怎么一直判断变量i是否等于0 VB 判断进程是否在