shape of a number

memas63

i want to know what is the code in visual basic 8 that will examine the shape of a number FROM DIGIT TO DIGIT
example
i have the number 1733
1-7 is an anscendig distance i name "U"
7-3 is descending distance i name "D"
3-3 is equal distance i name "Q"
so the shape of the number is "UDQ"
thank you
george