这个十位数分离是没问题的

说几点意见：
取出一个数的某一位不需要这么麻烦，比如取十位数，这样写就可以：
a \ 10 Mod 10
前面除以10（注意斜线的方向）表示去掉最后一位（除以10的几次方就是去掉几位），后面再对10取余就表示取出最后一位数
如果取的是最高位，最后的Mod 10就不需要写了
然后，二进制的表示一般不用数值类型，而是用字符串，就是说你不要用CDbl转换成数值型（其实为什么要转换成浮点数类型呢？为什么不CLng呢），那么也就不能用数值运算的方法取位数了，需要改用Mid函数取出从左边数的第n位：
Mid(a, n, 1)

十六进制是val("&H" & txt)

为了适配7位以内的数，我补了0，这又是怎么回事

‘问题都解决了’
dim r,s,ar,da,db,dc,dd,de,df,dg,n,m,z,y
z="0000000"
do
r=clng(inputbox("请输入二进制数"))
n=7-len(r)
m=right(z,n)
y=m&r
da=Mid(y,1, 1)
db=Mid(y,2, 1)
dc=Mid(y,3, 1)
dd=Mid(y,4, 1)
de=Mid(y,5, 1)
df=Mid(y,6, 1)
dg=Mid(y,7, 1)
if (da<>1 and da<>0)or(db<>1 and db<>0)or(dc<>1 and dc<>0)or(dd<>1 and dd<>0)or(de<>1 and de<>0)or(df<>1 and df<>0)or(dg<>1 and dg<>0) then
msgbox("啥，这是二进制？？？")
exit do
end if
'msgbox(dg&"~"&df&"~"&de&"~"&dd&"~"&dc&"~"&db&"~"&da)'此条测试用，去掉此行开头的'可以恢复测试
msgbox(64*da
+3
2*db+16*dc+8*dd+4*de+2*df+1*dg)
loop