二进制用数表示字母

因为字母有27个，小于2的5次方
所以使用5位就可以
具体怎么表示可以自己定，例如
00000表示A……
如果分大小写，就是54个，小于2的6次方
就要用6位了

先转ascii码,再转二进制 ,可能有错误,自己看下吧
msgbox er(asc("b"))
Function er(i)
Dim n_s, n_t, t
t = ""
n_s = CDbl(i)
Do Until n_t = 1
n_t = Int(n_s / 2)
n_s = Int(n_s Mod 2)
t = n_s & t
n_s = n_t
Loop
er= CDbl(n_t & t)
End Function