注册表项不存在，跳转错误问题

[startcomputer]

Private Sub Command1_Click()
Set BN = CreateObject("wscript.shell")
On Error GoTo err1
Text1(0).Text = BN.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Sonic\CinePlayer\1.5\LicenseAccepted")
err1:
MsgBox ("参数错误")
End Sub

以上是代码，运行以后不管有没有注册表项存在都会跳出错误提示。要怎么解决？能否添加一行代码检测注册表项是否存在，不存在则跳转到错误提示。

[chenhui530]

Private Sub Command1_Click()
Set BN = CreateObject("wscript.shell")
On Error GoTo err1
Text1(0).Text = BN.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Sonic\CinePlayer\1.5\LicenseAccepted")
exit sub
err1:
MsgBox ("参数错误")
End Sub

[startcomputer]

哦。可以了，谢谢。

[startcomputer]

要怎么给分啊，提示：只有未结、非0分贴子才可以结贴给分