Visual Basic - Conversion de números

Necesito que me expliquen de que manera se puede convertir un numero decimal a hexadecimal, binario, octal, pero sin utilizar funciones, o sea a pie, si alguien lo sabe le agradecería me conteste a mi correo electrónico

La siguiente función hace lo que pides devolviendo la correspondiente cadena con el número en la base solicitada

Public Function ToBase( byval Base as integer, Numero as Long) as String
Dim eldigito as byte

while numero <>0
eldigito=numero mod base
tobase= chr(eldigito +vbkey0) & tobase
numero=numero \\ base
wend

end function

Esto funciona correctamente sea cual sea la base, con un pequeño problema relativo a si la base es muy alta y la existencia de la Ñ que la utilizaría como simbolo en la representación.