Расширение ответа codymanix ... Вы можете заключить это в расширение для строк и добавить проверку типа ...
что-то вроде:
<Extension> Public Function ParseBinary(target As String) As Integer
If Not RegEx.IsMatch(target, "^[01]+$") Then Throw New Exception("Invalid binary characters.")
Return Convert.ToInt32(target, 2)
End Function
Это позволяет тогда, где бы у вас ни была строка двоичного значения, скажем «100101100101», вы можете сделать:
Dim val As Integer = "100101100101".ParseBinary()
Обратите внимание, что для использования необходимо импортировать System.Runtime.CompilerServices и работать на Framework 3.5 или более поздней версии.