Na prevod čísel vo vb6 aj vb.NET z desiatkovej sústavy do šestnástkovej slúži funkcia Hex(číslo),
do osmičkovej Oct(číslo)

'ďalej pre VB6

Prevod čísla z šestnástkovej do desiatkovej sústavy
   a = CLng("&H" & cislo)
Prevod čísla z osmičkovej do desiatkovej sústavy
   a = CLng("&0" & cislo)

Prevod z desiatkovej sústavy na číslo so základom od 2 do 36
Public Function DecToX(ByVal n As Long, zaklad As Long)
Dim str As String, cislo As Long, zaporne As Boolean
    If n < 0 Then n = -n: zaporne = True
Do
    cislo = n Mod zaklad
    If cislo > 9 Then cislo = cislo + 7
    str = Chr(48 + cislo) & str
    n = n \ zaklad
Loop Until n = 0
    If zaporne Then str = "-" & str
    DecToX = str
End Function 

Prevod čísla so základom od 2 do 36 na desiatkové
Public Function XToDec(ByVal cislo As String, zaklad As Long)
Dim i As Long, b As Long, n As Long
Dim znak As String * 1  'vytvorenie reťazca o dĺžke 1
    cislo = UCase(cislo)
    b = 1
For i = Len(cislo) To 1 Step -1
    znak = Mid(cislo, i, 1)
Select Case znak
    Case "-"
        n = -n
        Exit For
    Case "0" To "9"
        n = n + b * znak
    Case "A" To "Z"
        n = n + b * (Asc(znak) - 55)
End Select
    b = b * zaklad
Next i    
XToDec = n
End Function