Dim hexnumbers As String = "0123456789ABCDEF"

Dim hex As String = ""

Dim remainder As Integer

Do

remainder = number Mod 16

number = number \ 16

hex = hexnumbers.Chars(remainder

Loop While number > 0

base10to16 = hex

End Function

Private Function base10to32(ByVal number As Integer) As String

Dim hexnumbers As String = "0123456789ABCDEFGHIJKLMNO

Dim hex As String

Dim remainder As Integer

Do

remainder = number Mod 32

number = number \ 32

hex = hexnumbers.Chars(remainder

Loop While number > 0

base10to32 = hex

End Function

Private Function base32to10(ByVal thirtytwo As String) As Integer

Dim hexnumbers As String = "0123456789ABCDEFGHIJKLMNO

Dim i As Integer

Dim number As Integer = 0

For i = 0 To Len(thirtytwo) - 1

number = number * 32

number = number + hexnumbers.IndexOf(thirtyt

Next

base32to10 = number

End Function

I think you'll can make base16to10 by your own, having a look at base32to10