ndanchev

Module ToWordsModule

Public Function ToWords(ByVal dblValue As Double, Optional Measure As Object = Nothing, Optional Gender As String = Nothing) As String
    Dim vDigits         As Object
    Dim vGenderDigits   As Object
    Dim vValue          As Object
    Dim lIdx            As Long
    Dim lDigit          As Long
    Dim sResult         As String = ""
    Dim sString         As New String("0", 18)