Sub repinFile()
Set objDict = CreateObject("Scripting.Dictionary")
With objDict
    .Add "хорошее", "good"
    .Add "отличное", "great"
    .Add "плохое", "bad"
    .Add "диван", "sofa"
    .Add "кресло", "armchair"
    .Add "машина", "a machine"
    .Add "мотоцикл", "motorcycle"
    .Add "мотоцикл_иж", "motorcycle_eg"
    .Add "самокат", "scooter"
End With

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("C:\Temp\File\test.csv")
Set TextStream = File.OpenAsTextStream(1)
strTxt = TextStream.ReadAll()
TextStream.Close
TextArr = Split(strTxt, vbCr)
strTxt = Empty
For i = 0 To UBound(TextArr)
    Items = Split(TextArr(i), ";")
    If UBound(Items) > 0 Then
        Items1 = Split(Items(1), ",")
            For j = 0 To UBound(Items1)
                Items2 = Split(Items1(j), ":")
                strValue = Trim(Items2(1))
                If objDict.Exists(strValue) Then Items1(j) = Replace(Items1(j), strValue, objDict(strValue))
            Next
            Items(1) = Join(Items1, ",")
            TextArr(i) = Join(Items, ";")
    End If
Next
strTxt = Join(TextArr, vbCr)
Set TextStream = FSO.CreateTextFile("C:\Temp\File\test_out.csv")
TextStream.Write (strTxt)
TextStream.Close

End Sub

Sub repinFileLbL()
Set objDict = CreateObject("Scripting.Dictionary")
With objDict
    .Add "хорошее", "good"
    .Add "отличное", "great"
    .Add "плохое", "bad"
    .Add "диван", "sofa"
    .Add "кресло", "armchair"
    .Add "машина", "a machine"
    .Add "мотоцикл", "motorcycle"
    .Add "мотоцикл_иж", "motorcycle_eg"
    .Add "самокат", "scooter"
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.GetFile("C:\Temp\File\test.csv")
Set SourceTextStream = File.OpenAsTextStream(1)
'Set SourceText = fso.OpenTextFile("C:\Temp\File\test.csv", 1)
Set DistTextStream = fso.CreateTextFile("C:\Temp\File\test_out.csv")

strTxt = vbNullString

While Not SourceTextStream.AtEndOfStream
    c = SourceTextStream.Read(1)
    If c = vbCr Then
        
        Items = Split(strTxt, ";")
        If UBound(Items) > 0 Then
            Items1 = Split(Items(1), ",")
                For j = 0 To UBound(Items1)
                    Items2 = Split(Items1(j), ":")
                    strValue = Trim(Items2(1))
                    If objDict.Exists(strValue) Then Items1(j) = Replace(Items1(j), strValue, objDict(strValue))
                Next
                Items(1) = Join(Items1, ",")
                strTxt = Join(Items, ";")
        End If
    DistTextStream.Write (strTxt & vbCr)
        strTxt = vbNullString
    Else
        strTxt = strTxt & c
    End If
Wend
DistTextStream.Write (vbLf)
SourceTextStream.Close
DistTextStream.Close
End Sub

Sub sql_test()

Dim CON As New ADODB.Connection
Dim RS As New ADODB.Connection
Dim varArr

Dim path As String

path = "D:\Excel"

CON.Provider = "Microsoft.Jet.OLEDB.4.0"
CON.ConnectionString = "Data Source =" _
    & path & ";Extended Properties = ""text;HDR=Yes;FMT=Delimited"""
CON.Open

RS.Open "select * from [test_out.csv]", CON

End Sub

Public Sub translateWords()
    Dim pDict As New Scripting.Dictionary
    Dim parts() As String, i As Long, fso As New Scripting.FileSystemObject, pStream As Scripting.TextStream, t As Single
    
    t = Timer
    Set pStream = fso.OpenTextFile("C:\Path\Files\test4kk.csv", ForReading, False)
    fillDictFromFile pDict, "C:\Path\Files\table_1.csv"
    fillDictFromFile pDict, "C:\Path\Files\table_2.csv"
    parts = Split(pStream.ReadAll, vbCrLf)
    pStream.Close
    For i = 0 To UBound(parts)
        parts(i) = translate(parts(i), pDict)
    Next
    Set pStream = fso.OpenTextFile("C:\Path\Files\test4kk_en.csv", ForWriting, True)
    pStream.Write Join(parts, vbCrLf)
    pStream.Close
    MsgBox Timer - t
End Sub

Private Function translate(ByVal thisLine As String, ByVal thisDict As Scripting.Dictionary) As String
    Dim mainParts() As String, parts() As String, i As Long, keyVal() As String, sVal As String, sKey As String, sMain As String
    mainParts = Split(thisLine, ";")
    sMain = Trim$(mainParts(0))
    parts = Split(mainParts(1), ",")
    For i = 1 To UBound(parts)
        keyVal = Split(parts(i), ":")
        sKey = Trim$(keyVal(0)): sVal = Trim$(keyVal(1))
        If thisDict.Exists(sVal) Then sVal = thisDict(sVal)
        parts(i) = sKey & ":" & sVal
    Next i
    translate = sMain & ";" & Join(parts, ",")
End Function

Private Sub fillDictFromFile(ByVal thisDict As Scripting.Dictionary, ByVal FileName As String)
    Dim fIn As Integer, sLine As String, parts() As String
    fIn = FreeFile
    Open FileName For Input As #fIn
    Do Until EOF(fIn)
        Line Input #fIn, sLine
        parts = Split(sLine, ";")
        thisDict(Trim$(parts(0))) = Trim$(parts(1))
    Loop
    Close #fIn
End Sub