Declare Function convertIt Lib "convnum" Alias "CONVERTNUMBER" (ByVal a As Long, ByVal b As Long, ByVal s As String, ByRef c As Long) As Long
Public Function translateLong(ByVal num As Long) As String
    On Error GoTo Err_translateLong
    Static Str As String *  1024 
    Dim iCase As Long, iStringSize As Long
    iCase = convertIt(num,  5 , Str, iStringSize)
    translateLong = Left(Str, iStringSize)
Exit_translateLong:
Exit Function
Err_translateLong:
    MsgBox Err.Description
    translateLong = ""
    Resume Exit_translateLong
End Function
Sub Converter()
    ActiveCell.Value = translateLong(ActiveCell.Value)
End Sub