关于容错语句的嵌套解决方法

关于容错语句的嵌套
Private Sub Form_Load()

'===========================查看图片文件夹是否存在，如果没有就建立===============================

If Dir(App.Path & "\模版照片", vbDirectory) = "" Then MkDir App.Path & "\模版照片"

If Dir(App.Path & "\照片", vbDirectory) = "" Then MkDir App.Path & "\照片"


'====================================检测系统默认照片是否存在====================================
On Error GoTo DealError
  Dim X, y As String
  X = App.Path & "\模版照片\1.jpg"
  y = App.Path & "\1.jpg"
  FileCopy X, y
   
  '删除临时照片
  Kill y
   
  Exit Sub
   
DealError:
  MsgBox "检测到系统默认图片丢失，系统开始自我修复", , "系统提示"
  Dim z As String
  z = "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Water lilies.jpg"
  '==============子错误开始===================
  On Error GoTo pp
  FileCopy z, X
  pp:
  MsgBox "操作系统默认图片不存在", , "系统信息"
  Exit Sub
  Resume
  '==============子错误结束===================
  MsgBox "系统自我修复成功", , "修复成功"
   
  '在跳回到错误处运行
  Resume

End Sub
'==============================================================================
请问我这样写有问题么？

[解决办法]