Here it is in VB6. You will have to convert to
VB.NET.
I used the mod & the interger division operator.
Dim lngNumber As Long
Dim strOutput As String
' Initialize values
lngNumber = 88888
strOutput = ""
' Loop until done.
' We will be removing the least significant digit
' at the end of each iteration.
Do While lngNumber > 0
' Use Mod 10 to get the last digit, convert that
' to a string, add it and the spaces to the FRONT
' of the string so far.
strOutput = CStr(lngNumber Mod 10) & _
" " & _
strOutput
' Remove the last digit.
' Note the \ truncates the fraction.
lngNumber = lngNumber \ 10
Loop
Debug.Print strOutput
John R Lick
[email protected]