'********************************************************************
'*
'* Function Dec2Str
'*
'* Author: NetworkAdminKB.com
'* Created: 2004-12-05
'* Modified: 2004-12-05
'*
'* Purpose: Change any number into a String respresented by ASCII/ANSI
'* characters.
'*
'* Input: numAny = A number of any size.
'* lANSI = The lowest ANSI character that can be specified.
'* hANSI = The higest ANSI character that can be specified.
'*
'* Notes: This function's limit is 2,147,483,647.
'*
'********************************************************************
Function Dec2Str(ByVal numAny, ByVal lANSI, ByVal hANSI)
'Version 1.0 2004-12-05
Dim strNew, intMaxChar, intTemp
strNew = ""
intMaxChar = hANSI - lANSI + 1
Do While numAny > 0
intTemp = (numAny MOD intMaxChar) + lANSI
strNew = Chr(intTemp) & strNew
numAny = Int(numAny / intMaxChar)
Loop 'numAny > 0
Dec2Str = strNew
End Function 'Dec2Str