Imports System
Public Class Program
Public Shared Sub Main()
Dim decimal_number As Integer = 0, oct As Integer = 23
Dim _base As Integer = 1, tmp As Integer = oct
While tmp > 0
Dim last_digit As Integer = tmp Mod 10
tmp = tmp / 10
decimal_number += last_digit * _base
_base = _base * 8
End While
Dim mulby10 As Integer = 1, binary_number As Integer = 0
Dim i As Integer = decimal_number
While i > 0
binary_number = binary_number + (decimal_number Mod 2) * mulby10
mulby10 = mulby10 * 10
decimal_number = decimal_number \ 2
i = i \ 2
End While
Console.Write(binary_number)
End Sub
End Class
' run:
'
' 10011
'