VB Decimal to Multi Converter

Private Function Int2xls(XLColumn As Long) As String
Dim Dst1 As String
Dim DLn1 As Long
Const XY = 2

Dst1 = ""
DLn1 = XLColumn

Do Until DLn1 < XY
Dst1 = CStr(DLn1 Mod XY) & Dst1
DLn1 = DLn1 \ XY
Loop
Dst1 = CStr(DLn1) & Dst1
DLn1 = CLng(Dst1)

Int2xls = CStr(DLn1)

End Function

Just change Const to number (decimal = 2, Octal = 8 dst)