Private Sub Command1_Click()
n = Val(Text1.Text)
pos = 0
While n <> 0
dig = n Mod 10
conv2to10 = dig * (2 ^ pos)
acu = acu + conv2to10
n = n \ 10
pos = pos + 1
Wend
Label1.Caption = acu
End Sub