ifteen"

varLettersUnits = "" varThreeLetters = varLettersTens Case 16 varLettersTens = "sixteen" varLettersUnits = "" varThreeLetters = varLettersTens Case 17 varLettersTens = "seventeen" varLettersUnits = "" varThreeLetters = varLettersTens Case 18 varLettersTens = "eighteen" varLettersUnits = "" varThreeLetters = varLettersTens Case 19 varLettersTens = "nineteen" varLettersUnits = "" varThreeLetters = varLettersTens End Select If Right(varThreeFigures, 1) = 0 Then varThreeLetters = varLettersTens End If End If If Len([varThreeFigures]) = 3 Then varThreeLetters = varLettersHundreds & " " & varLettersTens & " " & varLettersUnits Select Case Right([varThreeFigures], 2) Case 11 varLettersTens = "eleven" varLettersUnits = "" varThreeLetters = varLettersHundreds & " " & varLettersTens Case 12 varLettersTens = "twelve" varLettersUnits = "" varThreeLetters = varLettersHundreds & " " & varLettersTens Case 13 varLettersTens = "thirteen" varLettersUnits = "" varThreeLetters = varLettersHundreds & " " & varLettersTens Case 14 varLettersTens = "fourteen" varLettersUnits = "" varThreeLetters = varLettersHundreds & " " & varLettersTens

Case 15 varLettersTens = "fifteen" varLettersUnits = "" varThreeLetters = varLettersHundreds & " " & varLettersTens Case 16 varLettersTens = "sixteen" varLettersUnits = "" varThreeLetters = varLettersHundreds & " " & varLettersTens Case 17 varLettersTens = "seventeen" varLettersUnits = "" varThreeLetters = varLettersHundreds & " " & varLettersTens Case 18 varLettersTens = "eighteen" varLettersUnits = "" varThreeLetters = varLettersHundreds & " " & varLettersTens Case 19 varLettersTens = "nineteen" varLettersUnits = "" varThreeLetters = varLettersHundreds & " " & varLettersTens End Select End If If varThreeFigures = "000" Then varThreeLetters = "" GoTo jumpThousands End If If Right(varThreeFigures, 2) = "00" Then varThreeLetters = varLettersHundreds GoTo jumpThousands End If If Left(varThreeFigures, 2) = "00" Then varThreeLetters = "and " & varLettersUnits GoTo jumpThousands End If If Left(varThreeFigures, 1) = "0" Then varThreeLetters = "and " & varLettersTens & " " & varLettersUnits End If If Left(varThreeFigures, 1) = "0" And Right(varThreeFigures, 1) = "0" Then

varThreeLetters = "and " & varLettersTens GoTo jumpThousands End If ''' *********************************************************************************************** ''Thousands jumpThousands: If varLenghtNumber > 3 Then varLettersUnits = varUnits(Right([varSixFigures], 1)) varLettersTens = varTens(Left(Right([varSixFigures], 2), 1)) varLettersHundreds = varHundreds(Left(Right([varSixFigures], 3), 1)) If Len([varSixFigures]) = 1 Then varSixLetters = varLettersUnits & " thousand" End If If Len([varSixFigures]) = 2 Then varSixLetters = varLettersTens & " " & varLettersUnits & " thousand" Select Case Right([varSixFigures], 2) Case 11 varLettersTens = "eleven" varLettersUnits = "" varSixLetters = varLettersTens & " thousand" Case 12 varLettersTens = "twelve" varLettersUnits = "" varSixLetters = varLettersTens & " thousand" Case 13 varLettersTens = "thirteen" varLettersUnits = "" varSixLetters = varLettersTens & " thousand" Case 14 varLettersTens = "fourteen" varLettersUnits = "" varSixLetters = varLettersTens & " thousand" Case 15 varLettersTens = "fifteen" varLettersUnits = "" varSixLetters = varLettersTens & " thousand"

Case 16 varLettersTens = "sixteen" varLettersUnits = "" varSixLetters = varLettersTens & " thousand" Case 17 varLettersTens = "seventeen" varLettersUnits = "" varSixLetters = varLettersTens & " thousand" Case 18 varLettersTens = "eighteen" varLettersUnits = "" varSixLetters = varLettersTens & " thousand" Case 19 varLettersTens = "nineteen" varLettersUnits = "" varSixLetters = varLettersTens & " thousand" End Select If Right(varSixFigures, 1) = 0 Then varSixLetters = varLettersTens & " thousand" End If End If If Len([varSixFigures]) = 3 Then varSixLetters = varLettersHundreds & " " & varLettersTens & " " & varLettersUnits & " thousand" Select Case Right([varSixFigures], 2) Case 11 varLettersTens = "eleven" varLettersUnits = "" varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand" Case 12 varLettersTens = "twelve" varLettersUnits = "" varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand" Case 13 varLettersTens = "thirteen" varLettersUnits = "" varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand" Case 14 varLettersTens = "fourteen" varLettersUnits = "" varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand" Case 15 varLettersTens = "fifteen"

varLettersUnits = "" varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand" Case 16 varLettersTens = "sixteen" varLettersUnits = "" varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand" Case 17 varLettersTens = "seventeen" varLettersUnits = "" varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand" Case 18 varLettersTens = "eighteen" varLettersUnits = "" varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand" Case 19 varLettersTens = "nineteen" varLettersUnits = "" varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand" End Select If Right(varSixFigures, 1) = 0 Then varSixLetters = varLettersHundreds & " " & varLettersTens & " thousand" End If If Right(Left([varSixFigures], 2), 1) = 0 Then varSixLetters = varLettersHundreds & " " & varLettersUnits & " thousand" End If End If If varSixFigures = "000" Then varSixLetters = "" GoTo jumpMillions End If If Right(varSixFigures, 2) = "00" Then varSixLetters = varLettersHundreds & " " & " thousands" GoTo jumpMillions End If If Left(varSixFigures, 2) = "00" Then varSixLetters = varLettersUnits & " " & " thousands" GoTo jumpMillions End If