Existen las funciones Hex() y Oct()
Pero si quieres para cualquier otra base usa las siguientes funciones .. solo le falta validar los valores de entrada y convertir el 10 en A, etc.. y el A en 10, etc..
REM funcion para convertir de base 10 a base n
Function b_n(n As Variant, b As Variant) As String
Dim t As String
Dim d As Long
t = ""
d = n
Do While True
If b > d Then
t = d & t
b_n = t
Exit Function
End If
t = Format(d - (Mid(Format(d / b, "#0.0"), 1, InStr(Format(d / b, "#0.0"), ".") - 1) * b)) & t
d = Mid(Format(d / b, "#0.0"), 1, InStr(Format(d / b, "#0.0"), ".") - 1)
Loop
End Function
REM funcion para convertir de base n a base 10
Function b_d(n As String, b As Variant) As String
Dim s As Long
Dim i As Integer
For i = 1 To Len(n)
s = s + Mid(n, i, 1) * (b ^ (Len(n) - i))
Next i
b_d = s
End Function
