Excel - Czyść polskie znaki

Function CZYSCPOLSKIEZNAKI(strCiag As String) As String
    Dim arrFind As Variant, arrReplace As Variant, iArr As Integer
    Dim i As Integer, temp As String
    
       arrFind = Array("ę", "ó", "ą", "ś", "ł", "ż", "ź", "ć", "ń", "Ę", "Ó", "Ą", "Ś", "Ł", "Ż", "Ź", "Ć", "Ń")
    arrReplace = Array("e", "o", "a", "s", "l", "z", "z", "c", "n", "E", "O", "A", "S", "L", "Z", "Z", "C", "N")

    temp = strCiag
    For i = 1 To Len(temp)
        If Asc(Mid(temp, i, 1)) > 122 Then
            For iArr = LBound(arrFind) To UBound(arrFind)
                If Mid(temp, i, 1) = arrFind(iArr) Then
                    temp = VBA.Replace(Expression:=temp, _
                                       Find:=arrFind(iArr), _
                                       Replace:=arrReplace(iArr))
                    Exit For
                End If
            Next
        End If
    Next
    CZYSCPOLSKIEZNAKI = temp
End Function