vba VariableType

Type Cartera
	NombreCliente As String
	FechaIngreso As Date
	ValorDeuda As Double
End Type

Sub EjercicioCartera()
	Dim Cliente(1 To 5) As Cartera

	Dim ClienteDeudaMayor As String
	Dim ValorClienteDeudaMayor As Double
	Dim SumaDeuda As Double

	ValorClienteDeudaMayor = 0
	SumaDeuda = 0

	For i = 1 To 5
		Cliente(i).NombreCliente = InputBox("Ingrese nombre cliente")
		Cliente(i).FechaIngreso = InputBox("Ingrese la fecha de ingreso para el cliente " & Cliente(i).NombreCliente)
		Cliente(i).ValorDeuda = InputBox("Ingrese el valor de deuda para el cliente " & Cliente(i).NombreCliente)
	Next i
    
	For i = 1 To 5
		If ValorClienteDeudaMayor < Cliente(i).ValorDeuda Then
			ValorClienteDeudaMayor = Cliente(i).ValorDeuda
			ClienteDeudaMayor = Cliente(i).NombreCliente
		End If
		SumaDeuda = SumaDeuda + Cliente(i).ValorDeuda
	Next i    

	MsgBox "El cliente con deuda mayor es " & ClienteDeudaMayor & " por el valor de: " & ValorClienteDeudaMayor
	MsgBox "La suma de las deudas es de: " & SumaDeuda & vbNewLine & _
		"Y el promedio de las deudas es de: " & SumaDeuda/5
End Sub