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