Excel VBA Run-time error '13' Type mismatch while passing long string values

I am getting error while running the below code

    Public Sub TC_Capture()
    Dim fso As Object, Fileout As Object, Sql As Object, objNet As Object, FS As Object, CommandTimeout As Integer
    Set cn = New ADODB.Connection
    Set cm = New ADODB.Command

    Set Rec_set = New ADODB.Recordset
    Set fso = CreateObject("Scripting.FileSystemObject")


    Dim ip As String, db As String, Row As Integer, SharepointAddress As String, LocalAddress As String, UserID As String, PASS As String, ws As Worksheet, ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, Status As String, Status1 As String, Status2 As String, Status3 As String, Status4 As String
    Row = 1
    Dim fndList As Variant                                                              ' find list
    Dim rplcList As Variant                                                             ' replace list
    Dim x As Long

    fndList = Array(Sheets("INDEX").Range("E66").Value, Sheets("INDEX").Range("E67").Value, Sheets("INDEX").Range("E68").Value, Sheets("INDEX").Range("E69").Value, Sheets("INDEX").Range("E70").Value, Sheets("INDEX").Range("E71").Value)                        

    rplcList = Array(Sheets("INDEX").Range("E17").Value, Sheets("INDEX").Range("E18").Value, Sheets("INDEX").Range("E19").Value, Sheets("INDEX").Range("E20").Value, Sheets("INDEX").Range("E21").Value, Sheets("INDEX").Range("E22").Value)                           


    For x = LBound(fndList) To UBound(fndList)                                        replace text
        Sheets("Test Case1").Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
        SearchFormat:=False, ReplaceFormat:=False 
    Next i

Passing the below values in the find list: LANG_CD,CO_BUS_CD,DATA_SRC_CD,DATA_SUB_SRC_CD,CO_BUS_NM,CO_BUS_ABBR_NM,COPRVDINSWRTY_CD,CO_BUS_TYPE_CD,ADDR_LINE1_TX,ADDR_LINE2_TX,CITY_NM,ST_ABBR_CD,ZIP_CD,CNTRY_CD,PHN_CITY_AREA_CD,PHN_NB,PHN_CNTRY_CD,TEST_CO_BUS_CD,GTD_MAX_DAY_NB,INBNKRELATCOBUS_CD,BUSPRTFLOTAGTYP_CD,TEST_OFFST_NB,TEST_FCDLRPREFX_CD,TEST_OFFST_DEC_NB

when i pass minimum values(half of the above value),there is no issue with type mismatch.when i pass the above full values then i am getting error type mismatch.

i have tried using different data types in the Dim fndList As Variant ' find list Dim rplcList As Variant ' replace list Dim x As Long

But none of them are worked.

Kindly suggest me to resolve this issue.