invalid procedure call or argument错误信息，卡了3天了，求高手帮忙解决一下！

   我要实现的功能是在Microsoft Project 2010中将一个.MPP的文件另存为.mpx的文件，功能代码在2003版本中可以实现，但是在2010里就不能实现。 
   下面是代码的一部分，首先是一个循环，这个循环有86次，每次循环到一定次数（具体哪次查不出来额），就直接跳进下面的Error，然后就出现错误信息，错误信息就是invalid procedure call or argument，这个循环里面是调用了哪个函数或者参数了呢？我是新手，不是很清楚，希望可以帮我解答一下。完整的代码（太多了发不上来）是在我的QQ空间里，小弟已经卡在这里3天了，希望高手可以解决一下啊。这是我空间的完整的代码，下面是链接。http://user.qzone.qq.com/279983622/blog/1303208988 Dim i As Integer
 s = "60"
 s1 = "61"
 For i = 1 To oNameList.Count
   sName = oNameList.Item(i)
   If sName = "Task Name" Then
      sName = "Name"
   ElseIf sName = "Type" Then
      sName = "Fixed"
   ElseIf sName = "Leveling Delay" Then
      sName = "Delay"
   End If
   s = s & sp & sName
   s1 = s1 & sp & oMPXTaskNames(sName)
 Next
Error:
  If bOpen Then Close #1
  'Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
  MsgBox Err.Description
End Function