Zamiana polskich znaków na angielskie

Option Explicit
 
Public Function pol2eng(sSource As String) As String
 
    Dim iCounter As Integer
    Dim sDestination As String
    Dim aPolish As Variant
    Dim aEnglish As Variant
 
    aPolish = Array("ą", "ć", "ę", "ł", "ń", "ó", "ś", "ż", "ź", "Ą", "Ć", "Ę", "Ł", "Ń", "Ó", "Ś", "Ż", "Ź")
    aEnglish = Array("a", "c", "e", "l", "n", "o", "s", "z", "z", "A", "C", "E", "L", "N", "O", "S", "Z", "Z")
 
    sDestination = sSource
    For iCounter = LBound(aPolish) To UBound(aEnglish)
        sDestination = Replace(sDestination, aPolish(iCounter), aEnglish(iCounter))
    Next iCounter
 
   pol2eng = sDestination
 
End Function