Mayor = Val(lstDatos.List(0))
Menor = Val(lstDatos.List(0))
For I = 0 To lstDatos.ListCount - 1
If Val(lstDatos.List(I)) > Mayor Then
Mayor = Val(lstDatos.List(I));
End If
If Val(lstDatos.List(I)) < Menor Then
Menor = Val(lstDatos.List(I));
End If
Next I
Mayor = Val(lstDatos.List(0))
Menor = Val(lstDatos.List(0))
For I = 0 To lstDatos.ListCount - 1
If Val(lstDatos.List(0)) > Mayor Then
Mayor = Val(lstDatos.List(0));
End If
If Val(lstDatos.List(0)) < Menor Then
Menor = Val(lstDatos.List(0));
End If
Next I