Проверка существующего текста в ListBox

[ольгаг]

Здравствуйте Уважаемые программисты!
Код ниже (vba excel 2003) выполняет проверку введенного текста в "str" (это текстовое поле на форме) с имеющимся текстом в ListBox-е.
Подскажите пожалуйста как исправить код, чтобы проверка включала поиск соответствия русских и английских букв, т.е. если в ListBox-е есть текст "Тип1" (все русскими буквами), то при вводе в "str"=Tип1 (где T - английская буква), выдавать сообщение "уже существует!" Или наоборот. Другими словами, просто не должно быть одинаковых текстов в ListBox-е, и не важно какие там буквы (рус или анг) если текст смотрится одинаково.
Буквы: "асекорхуАСЕНКМОРТХ" (в русском) и "acekopxyACEHKMOPTX" (в английском) считать одинаковыми.

Dim str As Variant      
For i = 0 To Me.ListBox.ListCount - 1
  If LCase(Me.ListBox.List(i)) = LCase(str) Then
    Msgbox "уже существует!", vbInformation + vbOKOnly, "Внимание:"
  End If
Next i

Заранее спасибо!

[Aleksandr H.]

Вариант: привести "асекорхуАСЕНКМОРТХ" (в русском) к "acekopxyACEHKMOPTX" (в английском).

перед проверкой заменить в str "асекорхуАСЕНКМОРТХ" (в русском) на "acekopxyACEHKMOPTX" (в английском), а тогда уже в цикле для каждого ListBox.List(i) менять "асекорхуАСЕНКМОРТХ" (в русском) на "acekopxyACEHKMOPTX" (в английском) и сравнивать.