A simple but practical small function, ASP's

When you do some kind of data display is not often encountered such a situation, too large numbers are displayed as a scientific notation, and more than a decimal display. 555 This, very unattractive, you can use the following small function to do it
function Sonic (Tnum)
If CSng (tnum) >0 Then
Getlar=0
If InStr (Tnum, "E") >1 Then
tnum=tnum/10000
Getlar=1
Else
If InStr (Tnum, ".") <1 Then
Tnum=cstr (Tnum) & "."
End If
If InStr (Tnum, ".") =1 Then
tnum= "0" +cstr (tnum)
End If
End If
If Getlar=0 Then
Sonic=left (tnum&), InStr (Tnum, ".") +2)
Else
Sonic=left (tnum&), InStr (Tnum, ".") +2) + "million"
End If
ElseIf CSng (tnum) <0 Then
Tnum=-csng (Tnum)
If InStr (Tnum, ".") <1 Then
Tnum=cstr (Tnum) & "."
End If
If InStr (Tnum, ".") =1 Then
tnum= "0" +cstr (tnum)
End If
Sonic= "-" &left (tnum& ")", InStr (Tnum, ".") +2)
Else
Sonic= "0.00"
End If
End Function
It's pretty simple, huh?