If we enter a number it will convert into individual strings and display in same order.

Ex: If I enter 564 then the output should be FIVE SIX FOUR.

So can anyone modify this code to get this result.



Function SpellNumber(amt As Variant) As Variant

Dim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim tens(9) As String
WORDs(1) = "ONE"
WORDs(2) = "TWO"
WORDs(3) = "THREE"
WORDs(4) = "FOUR"
WORDs(5) = "FIVE"
WORDs(6) = "SIX"
WORDs(7) = "SEVEN"
WORDs(8) = "EIGHT"
WORDs(9) = "NINE"
WORDs(10) = "TEN"
WORDs(11) = "ELEVEN"
WORDs(12) = "TWELVE"
WORDs(13) = "THIRTEEN"
WORDs(14) = "FOURTEEN"
WORDs(15) = "FIFTEEN"
WORDs(16) = "SIXTEEN"
WORDs(17) = "SEVENTEEN"
WORDs(18) = "EIGHTEEN"
WORDs(19) = "NINETEEN"
tens(2) = "TWENTY "
tens(3) = "THIRTY "
tens(4) = "FOURTY "
tens(5) = "FIFTY "
tens(6) = "SIXTY "
tens(7) = "SEVENTY "
tens(8) = "EIGHTY "
tens(9) = "NINETY "
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN 1 Then
ElseIf Val(Left(FIGURE, 9)) = 1 Then
End If
For i = 1 To 3
If Val(Left(FIGURE, 2)) 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " CRORE "
ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " LAKH "
ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " THOUSAND "
End If
FIGURE = Mid(FIGURE, 3)
Next i
If Val(Left(FIGURE, 1)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " HUNDRED "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " PAISE "
If Val(Left(FIGURE, 2)) 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " ONLY "
End If
End Function

Respected sir I want to know why interest on national debt is classified as transfer payment and therefore it is not included in national income but why it is not considered as factor income as government avails credit facilities?

my cma intermediate registration date 13/10/2008 and cma final registration year 2014.
still have to go for practical training. after registration for final, for financial support to my self i had joined a college affiliated by Maharaja Ganga Singh University Bikaner Rajasthan as an assistant professor of Accounts and Business Studies.
i have experience certificate for such position, from date 01/12/2016 to 30/04/2019.
my query is whether this experience can be counted as training of icmai as per prescribed in appendix? although this experience is totally 29 months.
if i am exempt for practical training?

Hi! Im srinithi i have cleared my ipcc and is currently working as an article in chennai and looking for firms in Singapore to continue my articleship in Singapore! Please do refer firms and friends who are working as an article in Singapore to email- nithithina@gmail.com. Please do reply!

what is TDS@% charge on SAC 998399 ? and the amount of bill if @2500/- we have only this one bill in this FY22-23

I am unable to login into ICITSS portal to download MCS certificate. Even after entering correct credentials for username & password is gives error as it is incorrect. Tried contacting & mailed the helpdesk but no revert from their end. What to do ?

Do the builders and realties prefer to operate their bisiness as companies ?And if so then is it because of the limited liability feature of a company or anything else ?

I'm a director of pvt ltd company I want to listed my company in bank .In cat A how i will .and how bank divide company in catA or cat b

Data science is the domain of study that deals with vast volumes of data using modern tools and techniques to find unseen patterns, derive meaningful information, and make business decisions. Data science uses complex machine learning algorithms to build predictive models.
https://www.igmguru.com/data-science-bi/data-science-training-in-hyderabad/

Mr. X have a property in Lal Dora area, Delhi and wants to transfer this property (Building) to his wife. can he transfer the same property on General Power of Attorney, because if he transfers this thru registered paper so costing would be very high. Approx. 2-3 Lac would be charged by the authority.
So, my query is that General Power of Attorney will be the sufficient documents to transfer the property. Pls advice.