function SweNum(inNumber)
mNumber=inNumber
ARR_ONE=Array("ett","två","tre","fyra","fem","sex","sju","åtta","nio","tio","elva","tolv","tretton","fjorton","femton","sexton","sjutton","arton","nitton")
ARR_TEN=Array("tjugo","trettio","fyrtio","femtio","sextio","sjuttio","åttio","nittio")
ARR_POT=Array("tusen","miljon","miljard","biljon")
for i=ubound(ARR_POT) to 0 step -1
y=Int(mNumber/(10^((i+1)*3)))
if y=1 then
strNumber=strNumber & SweNum(y) & " " & ARR_POT(i)
elseif y>1 and i>0 then
strNumber=strNumber & SweNum(y) & " " & ARR_POT(i) & "er "
elseif y>1 and i=0 then
strNumber=strNumber & SweNum(y) & "" & ARR_POT(i)
end if
mNumber=mNumber-y*(10^((i+1)*3))
next
y=Int(mNumber/100)
if y>0 then strNumber=strNumber & SweNum(y) & "hundra"
mNumber=mNumber-y*100
y=int(mNumber/10)
if y>1 then
strNumber=strNumber & ARR_TEN(y-2)
mNumber=mNumber-y*10
end if
if mNumber>0 then strNumber=strNumber & "" & ARR_ONE(mNumber-1)
SweNum=strNumber
end function
