Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
' óñòàíîâêà ïàóçû 500 ìñ Sleep 500

Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
' установка паузы 500 мс Sleep 500

'API function called by ShowOpen method
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OpenFilename) As Long
'API function called by ShowSave method
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OpenFilename) As Long

'data buffer for the GetOpenFileName and GetSaveFileName functions
Private Type OpenFilename
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        iFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        Flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type

Dim ECR As Object
Set ECR = CreateObject("IKC483LT")

    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")