化学分子式输入函数（数字下标输入方式）

<P>常常在网上看到有人询问类似化学分子式的数字下标（也有上标）的输入方式，当时回答一是不可能，二是想到拼凑的办法在报表里处理。今天在论坛上逛时看到了goodidea的提示平方和立方的输入方法得到启示，最后悟出一个办法，经多方寻找，原来在Windows的造字程序里的代码表里就有数字下标的代码，不过给的是16进制的代码而不是Access认识的ASCI的十进制代码，感谢cg1整理了一个十六进制转十进制的函数，这下就方便了，直接将取得的10个数字下标的代码转换成十进制的代码，代码为8320……8329。

Private Function Myjm(strA As String) As String

    Dim A, B As Long
    Dim C, E, jm As String

    A = Len(strA)

    For B = 1 To A
        jm = ""
        C = Mid(strA, B, 1)

        If C >= 0 And C <= 9 Then

            If C = 0 Then jm = ChrW(8320)
            If C = 1 Then jm = ChrW(8321)
            If C = 2 Then jm = ChrW(8322)
            If C = 3 Then jm = ChrW(8323)
            If C = 4 Then jm = ChrW(8324)
            If C = 5 Then jm = ChrW(8325)
            If C = 6 Then jm = ChrW(8326)
            If C = 7 Then jm = ChrW(8327)
            If C = 8 Then jm = ChrW(8328)
            If C = 9 Then jm = ChrW(8329)

        Else
            E = E & C
        End If
        E = E & jm

    Next B
   
    Myjm = E
'    Debug.Print E
End Function