Yet Another Number-To-Words Function (Sorry, US Style Only)

[snb]

I wrote a function in dutch.
After some minor adjustments it is also applicable to the English language (correct me if I'm wrong)

The simplest version I put here: 2 functions & 1 macro.
For more elaborate functions, including decimal numbers & formatted numbers see

http://www.snb-vba.eu/VBA_Getallen_naar_tekst_en.html

Function F_mats(y)
  On Error Resume Next
    
  F_mats = Split(Split(" 0 1One 2Two 3Three 4Four 5Five 6Six 7Seven 8Eight 9Nine 10Ten 11Eleven 12Twelve 13Thirteen 15Fifteen 20Twenty 30Thirty 50Fifty 80Eighty ", y)(1))(0)
End Function

Function F_convert(y)
  F_convert = "invalid input"
  If y = "" Or Val(y) = 0 Then Exit Function
    
  c00 = Format(Val(1 * y), String(3 * ((Len(Format(Val(1 * y))) - 1) \ 3 + 1), "0"))
    
  For j = 1 To Len(c00) \ 3
    x = Mid(c00, 3 * (j - 1) + 1, 3)
        
    sp = Array(F_mats(Left(x, 1)), F_mats(Val(Right(x, 2))), F_mats(Right(x, 1)), F_mats(Mid(x, 2, 1) & "0"), F_mats(Mid(x, 2, 1)))
    c01 = c01 & IIf(sp(0) = "", "", sp(0) & " Hundred ") & IIf(Right(x, 2) = "00", "", IIf(sp(1) <> "", sp(1), IIf(Mid(x, 2, 1) = "1", Trim(sp(2)) & "teen", IIf(sp(3) = "", sp(4) & "ty", sp(3)) & " " & sp(2)))) & Choose(Len(c00) \ 3 - j + 1, "", " Thousand ", " Million ", " Billion ")
  Next
    
  F_convert = IIf(c01 = "", "zero", Replace(c01, "  ", " "))
End Function

Sub M_tst()
  MsgBox F_convert(InputBox(String(4, vbLf) & "enter a number", "snb")), , "snb"
End Sub

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

[Jobert]

what if I have 123.20 and convert it into *** ONE HUNDRED TWENTY-THREE AND 20/100 PESOS ONLY ***,

Thank you for your effort in helping us..

[jomili]

SNB,
I know it's years later, but I just ran across this post. Testing your function, if I input "451" I get a proper response of "Four Hundred Fifty One". However, if I input "451.27", I get "Thousand Four Hundred Fifty One"

EDIT: Rick, I saw your note to me, but can't find it on this thread. Note that it's not your function that gave the invalid result, it was the alternative that SNB posted. Have you tested that?