类模块内错误的引发

[wqb]

我有一个类模块cProgram,其中有一方法Move，如下：
Public Sub Move(ByVal pPath As String, ByVal NewPath As String)
'pPath 指定目标文件，NewPath 指定一个新目录
On Err GoTo ShowErr
Dim objFSO As New FileSystemObject

objFSO.CreateFolder NewPath '建立新目录

'判断文件是否存在，无此文件时引发错误
If Dir(pPath) = "" Then
Err.Raise 50000, "cProgram", "要处理的文件不存在！"
Exit Sub
End If '］

'以下是对文件的处理
'·········

Exit Sub

ShowErr:
Dim ErrNum As Long, ErrDesc As String
ErrNum = Err.number
ErrDesc = Err.Description
Err.Raise ErrNum, "cProgram", ErrDesc
End Sub
我在其它模块中调用cProgram的Move方法，如果输入的参数NewPath不可实现（如它指定的路径为一台我没有写权限的机子上的文件夹），则objFSO.CreateFolder NewPath 这一语句就会产生错误。可是，无论你将VB的错误捕获设为哪种情况，编译后的可执行程序都会提示一个运行时错误，点击就会退出整个程序。
我的目的是：其它模块中调用此方法，如果产生错误，cProgram类内引发一个错误（错误号可以自定），而在其它模块中捕获这个错误，并进行处理。请教各位，不知是否能够做到，如果做不到，原因是什么？谢谢！

[wqb]

这个问题很困难吗？还是不吸引人？