$BinIn = "01011010" $Bits = StringSplit($BinIn,"") $Dec = 0 For $x = $Bits[0] To 1 Step -1 $dec += (2^($Bits[0]-$x)) * $Bits[$x] Next $hex = Hex($dec) ConsoleWrite("bin:" & $BinIn & " Dec:" & $dec & " Hex:" & $Hex & @CRLF)