VBSTART
    Option Explicit
    Dim xlApp
    Dim xlBook
    Sub Main()
        Const xlSaveChanges = 1
        Set xlApp = CreateObject("Excel.application")
        Set xlBook = xlApp.Workbooks.Open("C:\Users\Christer\Desktop\test excel from ms.csv")
        xlApp.Visible = True
        CRLF_Removal()
        xlApp.ActiveWorkbook.Close xlSaveChanges
        xlApp.Quit
        Set xlBook = Nothing
        Set xlApp = Nothing
    End Sub
    Sub CRLF_Removal()
        Dim Cell
        Const xlManual=-4135
        Const xlAutomatic=-4105
        
        xlApp.ScreenUpdating = False
        xlApp.Calculation = xlManual

        For Each Cell In xlApp.Activesheet.UsedRange.Cells
            If 0 < InStr(Cell, "vbCrLf") Then
                Cell.value = Replace(Cell, "vbCrLf", "")
            End If
        Next
        xlApp.ScreenUpdating = True
        xlApp.Calculation = xlAutomatic
    End Sub
VBEND

VBRun>Main