Anyone knows how to remove the repeated "only" ? Thanks.
Function readmoney_Mei(ByVal pNumber)
Dim Ringgit, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
Cents =...