1011110010010101100011101000010010011000000110111111111001谁能帮我换成十进制的

'以下全部控件都用默认值
'text1~8
'label1~11
'command1~4
'frame1~2
'
'***********************************************************
Private Sub Command1_Click() '十进制转二进制确定按钮
Dim varnum1, varnum2, varnum3, narnum4, nodnum1(7), nodnum2(7), nodnum3(7), nodnum4(7)

varnum1 = Text1.Text '赋值
Do While varnum1 > 0
For i = 0 To 7
nodnum1(i) = varnum1 Mod 2 '取整
varnum1 = varnum1 \ 2 '取余
Next 'strreverse()函数是反向排列字符
Label1.Caption = StrReverse(nodnum1(0) & nodnum1(1) & nodnum1(2) & nodnum1(3) & nodnum1(4) & nodnum1(5) & nodnum1(6) & nodnum1(7)) & "."
Loop
'以下重复三次
varnum3 = Text3.Text
Do While varnum3 > 0
For i = 0 To 7
nodnum3(i) = varnum3 Mod 2
varnum3 = varnum3 \ 2
Next
Label3.Caption = StrReverse(nodnum3(0) & nodnum3(1) & nodnum3(2) & nodnum3(3) & nodnum3(4) & nodnum3(5) & nodnum3(6) & nodnum3(7)) & ".&