Set fso = CreateObject("Scripting.FileSystemObject")
MyPath = Left(WScript.ScriptFullName, (Len(WScript.ScriptFullName)) - (Len(WScript.ScriptName)))

Set ts = fso.OpenTextFile(MyPath & "2257183.csv", 1)
arrstr = Split(ts.ReadAll, vbCrLf)
ts.Close
ReDim b(UBound(arrstr))

Set outFile = fso.CreateTextFile(MyPath & "2257183-2.csv")

For i = 0 To UBound(arrstr)
         If Len(arrstr(i)) Then
             a = Split(arrstr(i), ";")
       s1=a(0) & ";" & a(1) & ";" & a(2)
             s2 = a(16) & "/" & a(3) & "/" & a(4)
       for x = 5 to 15: s3=s3 & ";" & a(x): next
       s3=s3 &";" & a(17)
             b(i) = s1 & ";" & s2 & s3
       s3=""
         End If
Next

outFile.Write Join(b, vbCrLf)

outFile.Close

MsgBox "OK", vbInformation