CODIGOS CRISTIAN

  Para RANCHERAS Estefa: No te Rindas: https://www.youtube.com/watch?v=qTiUNzHwgio Alma Mia: https://www.youtube.com/watch?v=iQ8SbdXxOVw He Llorado Sonriendo: https://www.youtube.com/watch?v=3uN8cSNQl8Y   Shirly: Cerca de Ti: https://www.youtube.com/watch?v=4FIEu4ukk4E (REGIONAL O PUPULAR) En sus brazos: https://www.youtube.com/watch?v=F0wXDj8VIQk Corrido de Ester: https://www.youtube.com/watch?v=2MmizbBa1Es   Yula: Que Bonito: https://www.youtube.com/watch?v=YTeDGs5MEsk (REGIONAL) Mas de una vez: https://www.youtube.com/watch?v=2tI6pqqCvqw A donde vas: https://www.youtube.com/watch?v=WiL3b9OEQH0 Soy bautizado: https://www.youtube.com/watch?v=Zf7lNBEFPzw   (REGIONAL)

 ' Función principal: recibe un número y devuelve su representación en letras. Public Function NumeroALetras(ByVal numero As Double) As String     Dim entero As Long     entero = Int(numero)     NumeroALetras = ConvertirNumero(entero) End Function ' Función que descompone el número en millones, miles y el resto (menor a 1000). Public Function ConvertirNumero(ByVal numero As Long) As String     Dim texto As String     Dim millones As Long, miles As Long, resto As Long          If numero = 0 Then         ConvertirNumero = "cero"         Exit Function     End If          ' Descomponer el número en millones, miles y el resto.     millones = numero \ 1000000     resto = numero Mod 1000000     miles = resto \ 1000     resto = resto Mod 1000          ' Procesar millones   ...