Public Function CompError() As Integer
If Val(frmIntereses.txtTipo.Text) <= 0 Then
intRespuésta = MsgBox("Escriba un valor para el tipo de interés", vbCritical)
frmIntereses.txtTipo.SetFocus
CompError = 1
Exit Function
End If
If Val(frmIntereses.txtPeríodo.Text) <= 0 Then
intRespuésta = MsgBox("Escriba un valor para el período", bvcritical)
frmIntereses.txtPeíodo.SetFocus
CompError = 1
Exit Function
End If

If Val(frmIntereses.txtInvérsion.Text) <= 0 Then
intRespuésta = MsgBox("Escriba un valor para la inversión", vbCritical)
frmIntereses.txtInversión.SetFocus
CompError = 1
Exit Function
End If
CompError = 0
End Function

Private Sub Label1_Click()

End Sub

Private Sub cmdCalcular_Click()
Dim sngTipoInt As Single, sngInterés As Single
Dim intPeríodo As Integer, intNúm As Integer
Dim curValInicial As Currency

If CompError() = 1 Then
      Exit Sub
End If

sngTipoInt = txtTipo.Text / 100
intPeríodo = txtPeriodo.Text

curValInicial = txtInversión.Text
sngInterés = 1
For intNúm = 1 To intPeríodo
sngInterés = sngInterés * (1 + sngTipoInt)
Next intNúm
txtFinal.Text = Format(curValInicial * sngInterés, "###.##0,00 €")




End Sub

Private Sub cmdSalir_Click()
Unload fmrIntereses
End
End Sub