Перевод из восьмеричной системы счисления в двоичную - Visual Basic .NET

    Function FromOctToBinHandMade(num As String) As String
        Dim intNum As Integer = 0
        Dim numRev = num.Reverse
        For i As Integer = 0 To num.Length - 1
            intNum += Integer.Parse(numRev(i).ToString) * (8 ^ i)
        Next
        Dim bldr As New Text.StringBuilder
        Dim rmdr, dvdr As Integer
        dvdr = intNum
        Do
            dvdr = Math.DivRem(dvdr, 2, rmdr)
            bldr.Insert(0, rmdr.ToString)
        Loop While dvdr > 0
        Return bldr.ToString
    End Function