Visual Basic.NET - Binario a decimal

binario = Trim(Text1.Text) '// Toma el numero binario de un textbox

binario = StrReverse(binario)

largo = Len(binario)

For I = 1 To largo

X = 2 ^ (I - 1)

suma = suma + (Int(Mid$(binario, I, 1)) * X)

Next I

Text2.Text = suma '// Muestra el numero decimal en un textbox