خطای Expression too complex

[eppagh]

روی آفیس 2007 برنامه ای با کد زیر نوشته م که وقتی روی آفیس 2013 اجرا میشه این خطا رو میده:

Expression too complex (Error 16)

کد:

Public Function FindDuplicateID(ByVal TableName As String, ByVal IDFieldName As String) As Double
    Dim k, i As Double
    For k = 1 To Range(TableName).Rows.Count
        For i = k + 1 To Range(TableName).Rows.Count
            If CStr(Range(TableName & "[" & IDFieldName & "]").Cells(k, 1)) = CStr(Range(TableName & "[" & IDFieldName & "]").Cells(i, 1)) _
             And CStr(Range(TableName & "[" & IDFieldName & "]").Cells(k, 1)) <> "" Then
                FindDuplicateID = i
                Exit Function
            End If
        Next
    Next
End Function

عملا باید چه کار کنم؟

[generalsamad]

با سلام
روی آفیس من موردی نداره
آفیس 2013 -32 بیتی