Macro to save an xml (Excel2007) file into an Excel97 format

Hi, I created this macro (below) in order to let it run automatically over 
number of .xml files that have to be saved into another place(directory)
but 
as Excel97 files.
(in fact I have a DOS script that selects all .xml files in a certain 
directory. Each selected file should be opened automatically and saved 
automatically into a subdirectory called xls, saving the file as an
Excel97 
document (as you see below, I use the parameter FileFormat:=xlExcel8 _ to 
instruct VB to do so) ).
I you save the code into a file called PERSONAL.xls and put it into the 
directory ../XLSTART , excel will execute the macro right away when
started.

MY PROBLEM : this macro worked with Excel2003 but soon we are going to 
upgrade to Excel2007! The macro stops when it tries to save the file
(right 
after the MessageBox) and Excel crashes.

All help = welcome.
THnks.
Filip.

---


Option Explicit
 
 'The following function returns the filename without the extension from
the 
file's full path:
Function FileNameNoExt(strPath As String) As String
    Dim strTemp As String
    strTemp = Mid$(strPath, InStrRev(strPath, "\") + 1)
    FileNameNoExt = Left$(strTemp, InStrRev(strTemp, ".") - 1)
End Function
 
'the following function will get the path only (i.e. the folder) from the 
file's ful path:
Function FilePath(strPath As String) As String
    FilePath = Left$(strPath, InStrRev(strPath, "\"))
End Function

Sub auto_open()
       Application.Quit
End Sub

Sub auto_close()

   Dim NewFName As String
   Dim FullPathAs String

   NewFName = "xls\" & FileNameNoExt(ActiveWorkbook.FullName)
   FullPath= FilePath(ActiveWorkbook.FullName)

   MsgBox " NewFName: " & NewFName
   MsgBox " VolledigPad: " & VolledigPad

    ActiveWorkbook.SaveAs Filename:=FullPath+ "xls\" + NewFName, 
FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False,
_
        CreateBackup:=False
End Sub