Dim num As Integer
        Dim remainder As Integer
        Dim outString As String
        Dim letrs As String = "0123456789ABCDEF"
        'we use these to convert the remainder to a single character
        For base As Integer = 16 To 16
            num = CInt(txtIn.Text)
            outString = " "
            Do While (num > 0)
                remainder = num Mod base
                num = num  base
                outString = CStr(remainder) & outString
            Loop
            lstOutput.Items.Add(outString)
        Next