calculo cuota a pagar

[juaneto]

Private Sub cmdCalcular_Click(Index As Integer)
Dim cCantidad As Currency
Dim fTipoInt As Single
Dim nPlazo As Integer, cPago As Currency
'Almacenar la cantidad en la variable cCantidad
cCantidad = Val(txtCntidad.Text)

'Convertir tipo de interes en su equivalente decimal
'Ej. 12.75 se convierte en 0,1275
fTipoInt = Val(txtTipoInt.Text) / 100

'Convertir tipo de interes anual en mensual
'Dividiendo por 12 (meses en un año)
fTipoInt = fTipoInt / 12

'Convertir número de años en número de meses
'Multiplicando por 12 (meses en un año)
nPlazo = Val(txtPlazo.Text) * 12

'Calcular y mostrar el pago mensual
'la funcion Format hace que el número tenga buen aspecto
cPago = cCantidad * (fTipoInt / (1 - (1 + fTipoInt) ^ -nPlazo))
txtPago.Text = Format(cPago, "Fixed")

End Sub


Private Sub Salir_Click(Index As Integer)
End

End Sub

hice la corrección y me sale el mismo mensaje, me resalta en amarillo el primer comando:

Private Sub cmdCalcular_Click(Index As Integer)

y me resalta en azul el escrito:

.Text de: 'Almacenar la cantidad en la variable cCantidad
cCantidad = Val(txtCntidad.Text)