Ошибка Error 2036

Function Massiv_1(s As String) As String
    Dim T As String
    Dim MassivForHamming(8) As String
    Dim Massiv_old_v_simvol As String
    Dim GotovayaStroka As String
    Dim CRC_3_simvol As String
    Dim Hamming_v_16(200) As String
    Dim Soedinenie(100) As String
    Dim Delenie As String
    Dim Hamming_v_simvol As String
    Dim CRC_1 As Long
    Dim CRC_2 As Long
    Dim CRC_3 As Long
    Dim p As Integer
    p = 1
        For n = 1 To 200
            Delenie = Mid(s, n, 1) 'Отделяет символ'
            V_chislo = Asc(Delenie) 'Символ переводит в число'
            CRC_1 = CRC_1 + V_chislo
            V_2 = Application.Dec2Bin(V_chislo, 8) 'В 2-ую'
                For K = 1 To 8
                MassivForHamming(K) = Mid(V_2, K, 1)
                Next K
            H_1 = (CInt(MassivForHamming(1)) + CInt(MassivForHamming(2)) + CInt(MassivForHamming(4)) + CInt(MassivForHamming(5)) + CInt(MassivForHamming(7))) Mod 2
            H_2 = (CInt(MassivForHamming(1)) + CInt(MassivForHamming(3)) + CInt(MassivForHamming(4)) + CInt(MassivForHamming(6)) + CInt(MassivForHamming(7))) Mod 2
            H_3 = (CInt(MassivForHamming(2)) + CInt(MassivForHamming(3)) + CInt(MassivForHamming(4))) Mod 2
            H_4 = (CInt(MassivForHamming(5)) + CInt(MassivForHamming(6)) + CInt(MassivForHamming(7)) + CInt(MassivForHamming(8))) Mod 2
            ChisloHamminga = Application.Bin2Hex(CStr((H_4) & CStr(H_3) & CStr(H_2) & CStr(H_1)))
            Hamming_v_10 = CInt(Application.Bin2Dec(ChisloHamminga))
            CRC_2 = CRC_2 + Hamming_v_10
            Hamming_v_16(n) = CStr(Application.Bin2Hex(ChisloHamminga))
            Next n
                    For m = 1 To 199 'Объединяет числа попарно в новый массив'
                        Soedinenie(p) = Hamming_v_16(m) & Hamming_v_16(m + 1)
                        Hamming_v_simvol = Chr(Soedinenie(p))
                        Massiv_old_v_simvol = Massiv_old_v_simvol & Hamming_v_simvol
                        p = p + 1
                        m = m + 1
                    Next m
        CRC_3 = CRC_1 + CRC_2
        CRC_3_v_16 = CInt(Application.Dec2Hex(CRC_3))
        CRC_3_simvol = Chr(CRC_3_v_16)
    GotovayaStroka = s & Massiv_old_v_simvol & CRC_3_simvol
End Function

Hamming_v_16(n) = CStr(Application.Bin2Hex(ChisloHamminga))