=СЦЕПИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ([Текст];" ";ПОВТОР(" ";ДЛСТР([Текст])));ДЛСТР([Текст])*(3-1)+1;ДЛСТР([Текст])))

 Run-time error '1004'
Application-defined or object-defined error

lRow = oXLws.Range("A" & oXLApp.Rows.Count).End(xlUp).Row + 1

Sub ExportToExcel(MyMail As MailItem)
    Dim strID As String, olNS As Outlook.NameSpace
    Dim olMail As Outlook.MailItem
    Dim strFileName As String

    '~~> Excel Variables
    Dim oXLApp As Object, oXLwb As Object, oXLws As Object
    Dim lRow As Long

    strID = MyMail.EntryID
    Set olNS = Application.GetNamespace("MAPI")
    Set olMail = olNS.GetItemFromID(strID)

    '~~> Establish an EXCEL application object
    On Error Resume Next
    Set oXLApp = GetObject(, "Excel.Application")

    '~~> If not found then create new instance
    If Err.Number <> 0 Then
        Set oXLApp = CreateObject("Excel.Application")
    End If
    Err.Clear
    On Error GoTo 0

    '~~> Show Excel
    oXLApp.Visible = True

    '~~> Open the relevant file
    Set oXLwb = oXLApp.Workbooks.Open("мой_путь_к_файлу/файл.xlsm")

    '~~> Set the relevant output sheet. Change as applicable
    
    
    Set oXLws = oXLwb.Sheets("Sheet1")

         
    lRow = oXLws.Range("A" & oXLApp.Rows.Count).End(xlUp).Row + 1

    '~~> Write to outlook
    With oXLws
        '
        '~~> Code here to output data from email to Excel File
        '~~> For example
        '
        .Range("A1").Value = olMail.Subject
        .Range("B1").Value = olMail.SenderName
        '
    End With

    '~~> Close and Clean up Excel
    oXLwb.Close (True)
    oXLApp.Quit
    Set oXLws = Nothing
    Set oXLwb = Nothing
    Set oXLApp = Nothing

    Set olMail = Nothing
    Set olNS = Nothing
End Sub

Sub SaveAsCSVinQuotes()   
Dim r As Range, c As Range, s As String   
s = Application.GetSaveAsFilename(, "CSV Files (*.csv),*.csv,All Files (*.*),*.*", , "Сохранение в формате CSV в кавычках")   
If s = "False" Then Exit Sub   
Open s For Output As #1   
For Each r In ActiveSheet.UsedRange.Rows   
   s = ""   
   For Each c In r.Cells   
       s = s & "," & """" & c & """"   
   Next   
   Print #1, Mid$(s, 2)   
Next   
Close #1   
End Sub

<form action=" /data/upload.php; method="post" enctype="multipart/form-data" class="form-upload" role="form">
         <h2 class="form-upload-heading">Загрузка данных</h2>
         <div class="form-group">
            <input type="file" name="filename">
            <br>
            <button class=" type="submit"><span class=""></span> Отправить</button>
</form>