'以下函数将文本转换成化学分子式

Function TFormat(Strvalue As Variant) As String
Strvalue = Strvalue & ""
For i = 1 To Len(Strvalue)
Select Case Asc(Mid(Strvalue, i, 1))
Case 48 To 48 + 9 '数字
TFormat = TFormat & ChrW(Asc((Mid(Strvalue, i, 1))) + 8272)
Case 43   '减号
TFormat = TFormat & ChrW(Asc((Mid(Strvalue, i, 1))) + 8271)
Case 45   '加号
TFormat = TFormat & ChrW(Asc((Mid(Strvalue, i, 1))) + 8270)
Case Else
TFormat = TFormat & Mid(Strvalue, i, 1)
End Select
Next
End Function