Código en VBA (InputBox en varias líneas y convertir números a moneda)

Código escrito en VBA, que muestra como generar un InputBox con saltos de línea y la utilización de FormatCurrency el cual se utiliza para convertir numeros a moneda, así como también muestra la fecha actual en los cuadros de diálogo.

Private Sub CalcularInteres()
'Declaro la variable a de tipo entero
Dim a As Integer
Dim b As Integer
Dim c As Integer
'Solicitar al usuario que ingrese un numero >0 y <5
'El Do hace obligatorio que el número ingresado este entre el rango >0 y <5
Do
'vbCrLf hace un salto de línea, es decir que se inicia una nueva linea despues de escribir vbCrLf
a = InputBox("Seleccione el Tipo de Crédito a Operar:" & vbCrLf & _
"" & vbCrLf & _
"1 (Salud Pública)" & vbCrLf & _
"2 (Magisterio)" & vbCrLf & _
"3 (Empresas Privadas)" & vbCrLf & _
"4 (Agricultores)", "Hecho por Joél Rodríguez")
Loop Until a > 0 And a < 5
'Loop Until es la condición para que no permita pasar si no se cumple
b = InputBox("Ingrese el Monto del Crédito a autorizar:", "Hecho por Joél Rodríguez")
c = InputBox("En cuantas cuotas desea cancelar el crédito:", "Hecho por Joél Rodríguez")
'Select Case ó traducido En caso de, significa que va a tomar una desición dependiendo si se cumple la condicion
Select Case a
Case Is = 1
'FormatCurrency convierte los números a moneda
MsgBox ("Si su crédito autorizado es de: " & FormatCurrency(b) & " El interés a cancelar será de: " & FormatCurrency(b * 0.17) & " Por lo que en total usted deberá cancelar la cantidad de: " & FormatCurrency((b * 0.17) + b) & " Sus pagos mensuales serán de: " & FormatCurrency(((b * 0.17) + b) / c) & " En " & c & " Cuotas"), vbInformation, "La fecha actual es: " & (Date)
Case Is = 2
MsgBox ("Si su crédito autorizado es de: " & FormatCurrency(b) & " El interés a cancelar será de: " & FormatCurrency(b * 0.18) & " Por lo que en total usted deberá cancelar la cantidad de: " & FormatCurrency((b * 0.18) + b) & " Sus pagos mensuales serán de: " & FormatCurrency(((b * 0.18) + b) / c) & " En " & c & " Cuotas"), vbInformation, "La fecha actual es: " & (Date)
Case Is = 3
MsgBox ("Si su crédito autorizado es de: " & FormatCurrency(b) & " El interés a cancelar será de: " & FormatCurrency(b * 0.2) & " Por lo que en total usted deberá cancelar la cantidad de: " & FormatCurrency((b * 0.2) + b) & " Sus pagos mensuales serán de: " & FormatCurrency(((b * 0.2) + b) / c) & " En " & c & " Cuotas"), vbInformation, "La fecha actual es: " & (Date)
Case Is = 4
MsgBox ("Si su crédito autorizado es de: " & FormatCurrency(b) & " El interés a cancelar será de: " & FormatCurrency(b * 0.1) & " Por lo que en total usted deberá cancelar la cantidad de: " & FormatCurrency((b * 0.1) + b) & " Sus pagos mensuales serán de: " & FormatCurrency(((b * 0.1) + b) / c) & " En " & c & " Cuotas"), vbInformation, "La fecha actual es: " & (Date)
'End Select finaliza el metodo Case
End Select
End Sub

Código escrito por:  Joél Rodríguez