Okay. Was this what you wanted?
Code:
strVal = 54321
for IntIcounter = len(strVal) to 1 step -1
strInd= Left(strVal,IntIcounter)
strFinal = strFinal + strInd &VBCRLF
Next
msgbox strFinal
Basanth
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.