Imports System

Public Module Module1

    Dim input As Integer

    Dim output As Integer

    Dim constants(8) As Integer

    Dim answers(8) As  String

    Dim count AS Integer

    Dim decimalval As Integer

    Dim numberin As String

    Dim n1, n2, n3, n4, n5, n6, n7, n8 As Integer

    Dim value, values As Integer

    Public Sub Main()

        Console.WriteLine("Number base converter")

        Console.WriteLine("This would allow you to change into different base formats")

        Console.WriteLine("Highest base allowed is 16")

        Console.WriteLine("Highest input base allowed is 10")

        Console.WriteLine("Type the base of the input number type")

        input=Console.ReadLine()

        Console.WriteLine("Type the base of the output number type")

        output=Console.ReadLine()

        constants(8)=output^7

        constants(7)=output^6

        constants(6)=output^5

        constants(5)=output^4

        constants(4)=output^3

        constants(3)=output^2

        constants(2)=output^1

        constants(1)=output^0

        Console.WriteLine("Constants used are " & constants(8) & constants(7) & constants(6) & constants(5) & constants(4) & constants(3) & constants(2) & constants(1) & constants(0))

        Console.WriteLine("Enter the input number")

        numberin=Console.ReadLine()

        n1=numberin.Substring(0,1)

        n2=numberin.Substring(1,1)

        n3=numberin.Substring(2,1)

        n4=numberin.Substring(3,1)

        n5=numberin.Substring(4,1)

        n6=numberin.Substring(5,1)

        n7=numberin.Substring(6,1)

        n8=numberin.Substring(7,1)

        decimalval=(n8+(n7*(input^1))+(n6*(input^2))+(n5*(input^3))+(n4*(input^4))+(n3*(input^5))+(n2*(input^6))+(n1*(input^7)))

        Console.WriteLine(decimalval)

        value=decimalval

        For count=0 To 8

        values=value-constants(8-count)

            If values<0 Then

                Do

                    count=count+1

                    values=value-constants(8-count)

                Loop Until values>=0

            End If

        If values=15 Then

            answers(count)="F"

        Else if values=14 Then

            answers(count)="E"

        else if values=13 Then

            answers(count)="D"

        Else If values=12 Then

            answers(count)="C"

        else If values=11 Then

            answers(count)="B"

        Else if values=10 Then 

            answers(count)="A"

        else 

            answers(count)=values

        End If

        value=values

    Next

    Console.WriteLine("Answer is " & answers(0) & answers(1) & answers(2) & answers(3) & answers(4) & answers(5) & answers(6) & answers(7))

    End Sub

End Module