Привести текст к одному языку

[Asya]

Есть база городов, которые мне надо "Склеить", но проблема, что слово, например, "Ялта" в одном файле, вероятно набрано на русском языке, а в другом на украинском, хотя видимой разницы в результате нет, а сцепить не получается ("Ялта" <> "Ялта"). Если у кого-то есть решение - поделитесь , плиз

[Aent]

Вот код который меняет ангийские буквы на одинаковые русские.
Если не используется юникод, для украинского пишется аналогичная прцедура или модифицируется эта

Код: Выделить всё

Option Compare Binary
'Проверить на латиницу и преобразовать символы одинакового начертания к кириллице
Public Sub FilterLatRus(ByRef s As String)
    Const csLat As String = "eEToOpPaAkKxXcCbBmM"
    Const csRus As String = "еЕТоОрРаАкКхХсСьВмМ"
    Dim i As Integer
    Dim j As Integer
    For i = 1 To Len(s)
        j = InStr(csLat, Mid$(s, i, 1))
        If j > 0 Then
            Mid$(s, i, 1) = Mid$(csRus, j, 1)
        End If
    Next i
End Sub

[Asya]

Спасибо большое получилось ))