求一个EXCEL函数,功能是把一个10进制数转化成34（10个阿拉伯数字+26个英文字母去掉L,M）进制数.

Function DEC234(x) As String
Dim y
Dim str
DEC234 = ""
str = "0123456789ABCDEFGHIJKNOPQRSTUVWXYZ"
Do While x / 34 >= 1
y = x Mod 34
x = Int(x / 34)
DEC234 = Mid(str,y + 1,1) & DEC234
Loop
DEC234 = Mid(str,x + 1,1) & DEC234
End Function