Private Function decode(str As String) As String
    If IsEmpty(codetable) Then
        codetable = Array( "A" ,  "B" ,  "V" ,  "G" ,  "D" ,  "E" ,  "Zh" ,  "Z" ,  "I" ,  "I" ,  "K" ,  "L" ,  "M" ,  "N" , _
                           "O" ,  "P" ,  "R" ,  "S" ,  "T" ,  "U" ,  "F" ,  "H" ,  "C" ,  "Ch" ,  "Sh" ,  "Sch" ,  "'", _
                          "Y", "", "E", "Iu", "Ia", _
                          "a", "b", "v", "g", "d", "e", "zh", "z", "i", "i", "k", "l", "m", "n", _
                          "o", "p", "r", "s", "t", "u", "f", "h", "c", "ch", "sh", "sch", "'" , _
                           "y" ,  "", " e ", " iu ", " ia")
    End If
    For i =  1  To Len(str)
        code = Asc(Mid(str, i,  1 ))
        If code >  191  And code <=  255  Then
            index = code -  192 
            decode = decode + codetable(index)
        Else
            decode = decode + Chr(code)
        End If
    Next
End Function