[mini]

Private Sub Command1_Click()

  l = Len(Trim(Text1.Text))   '求二進位字串長度
    For i = 1 To l     '從最左邊開始換算累積到 變數a中
             j = 2 ^ (l - i)
       a = a + CInt(Mid(Text1, i, 1)) * j
    Next
    Text2.Text = a
    
End Sub

P.S.上面沒有做 text1的 二進位制 限制