新手求帮助

在vb下老提示错误53    我的系统是mac
我的代码是

Option Explicit
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
        (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Dim TempPath As String
Dim Slen As Long
Dim Bookname As String
Dim fs As Object

Public Sub auto_open()
   TempPath = String(255, 0)
   Slen = GetTempPath(256, TempPath)
   TempPath = Left(TempPath, Slen)
   TempPath = Trim(Left(TempPath, Len(TempPath) - 1)) & "\"
   Bookname = Dir(TempPath & ThisWorkbook.Name)
   If Bookname = ThisWorkbook.Name Then
      Set fs = CreateObject("Scripting.FileSystemObject")
      fs.DeleteFile TempPath & ThisWorkbook.Name
   End If
End Sub

Public Sub 删除自身文件()
   Dim Yn As String
   Dim Bookpath As String
   Yn = MsgBox("确定要删除吗？", vbYesNo, "删除提示")
   If Yn = vbYes Or Yn = vbNo Then
      Bookpath = ThisWorkbook.Path
      Bookname = ThisWorkbook.Name
      Application.DisplayAlerts = False
      ThisWorkbook.SaveAs TempPath & ThisWorkbook.Name
      Set fs = CreateObject("Scripting.FileSystemObject")
      fs.DeleteFile Bookpath & "\" & Bookname
      Application.DisplayAlerts = True
      MsgBox "文件“" & Bookpath & "\" & Bookname & "”成功删除"
      ThisWorkbook.Close
   End If
End Sub
--------------------编程问答-------------------- mac 可以调用 API 吗? --------------------编程问答-------------------- OS都换掉了 --------------------编程问答-------------------- 如果想要得到满意的答案，应该描述清楚错误是在哪个语句上产生的，贴出这么一堆代码，难道你要人家一句一句的帮你查？ --------------------编程问答-------------------- 是电脑是MAC，系统用的是Windows吧？不然我很怀疑。。。。 --------------------编程问答--------------------

引用 MSDN:

找不到指定的文件（错误 53）

所指定的文件找不到。此错误有以下的原因和解决方法：

如 Kill、Open 或 Name 等语句，引用到一个不存在的文件。
检查文件名的拼写以及指定的路径。

试图调用动态链接库 (DLL)中的过程，但找不到在 Declare 语句的 Lib 子句中所指定的库文件名。
检查文件名的拼写以及指定的路径。

在开发环境中，如果试图打开并不存在的工程或装载不存在的文本文件，将发生错误。
检查文件名或工程名的拼写以及指定的路径。

详细信息，可选取有问题的项目，并按下 F1 键。

补充：VB ,  基础类