Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)


Public Sub translateFormat(strS1 As String,strD1 As String,strPath As String)
'
    Dim xlApp As New Excel.Application
    Dim xlBook As New Excel.Workbook
    
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    Set xlBook = xlApp.Workbooks.Open(strPath & strS1)

    xlApp.DefaultSaveFormat = xlExcel8
    xlApp.DisplayAlerts = False
    xlBook.CheckCompatibility = False
    xlBook.SaveAs strPath & strD1,FileFormat:=xlExcel8
    
    xlBook.Close
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing

    Kill strPath + strS1
    Sleep 200

End Sub

THAT ALL