Function Num2Text(ByVal Value As Decimal) As String
Dim valores() As String
Dim valor As String = Value
Dim entero As Decimal = 0
Dim fraccion As Decimal = 0

If valor.Contains(“.”) OrElse valor.Contains(“,”) Then
valores = Split(valor, “.”)
Value = CDec(valores(0))

If valores.Length > 1 Then
fraccion = CDec(valores(1))
End If
End If

##Algoritmo ya posteado………

y al final agregamos lo siguiente.

If fraccion 0 Then
Num2Text = Num2Text & ” CON ” & Num2Text(CDec(fraccion))
End If

End Function

Hemos hecho prueba y nos funciona. Cualkier aporte comentario o modificacion sera bueno, para crecer.

jeje.

Saludos.