Hi,
i wanted to enable the function to get my numerical values into words. i used the following code off of a website to enable it:
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
Problem now being that when i =SpellNumber(whtever value) , it simply Coverts it to "0"
is there something wrong with the code or am i making some mistake or missing out on something??