Function Transliterate(Bulgarian As String)
    letters = Array("A", "B", "V", "G", "D", "E", "YO", "ZH", "Z", "I", "Y", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "H", "TZ", "CH", "SH", "SCH", "A", "", "Y", "", "E", "YU", "YA", "a", "b", "v", "g", "d", "e", "yo", "zh", "z", "i", "y", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "h", "tz", "ch", "sh", "sch", "", "y", "", "e", "yu", "ya", "#")
    i = 1040
    For Each letter In letters
        Dim val As String
        Select Case letter
            Case "YO"
                val = ChrW(1025)
            Case "yo"
                val = ChrW(1105)
            Case "#"
                val = ChrW(8470)
            Case Else
                val = ChrW(i)
                i = i + 1
        End Select
        Bulgarian = Replace(Bulgarian, val, letter)
    Next letter
    Transliterate = Bulgarian
End Function