array con error type mismatch


   hola Amigos,A lo mejor me podeis ayudar con esta funcion que me devuelve un error de type mismatch, que tendra que ver con el tipo de variable no correcta, me imagino, pero no consigo resolverlo :

-------------------
Public Function iMax(ParamArray p()) As String
  Dim vVal As Variant, vMaxVal As Variant

  vMaxVal = Null
  For Each vVal In p
    If Not IsNull(vVal) And (IsNull(vMaxVal) Or (vVal < vMaxVal)) Then vMaxVal = vVal
  Next

  iMax = vMaxVal
End Function

---------------

Dim arr(1 To 3) As Variant
    Dim vx As String
    
arr(1) = capitalIncre
arr(2) = capDobra
arr(3) = capKelly

 vx = iMax(arr())
----------------
el error se produce el la variable vVal que es del tipo variant
alguna idea ?
Gracias

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
cpampasPT Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 20/Marzo/2010 Localización: Portugal Estado: Sin conexión Puntos: 537	Tema: array con error type mismatch Enviado: 10/Noviembre/2019 a las 14:44
	hola Amigos, A lo mejor me podeis ayudar con esta funcion que me devuelve un error de type mismatch, que tendra que ver con el tipo de variable no correcta, me imagino, pero no consigo resolverlo : ------------------- Public Function iMax(ParamArray p()) As String Dim vVal As Variant, vMaxVal As Variant vMaxVal = Null For Each vVal In p If Not IsNull(vVal) And (IsNull(vMaxVal) Or (vVal < vMaxVal)) Then vMaxVal = vVal Next iMax = vMaxVal End Function --------------- Dim arr(1 To 3) As Variant Dim vx As String arr(1) = capitalIncre arr(2) = capDobra arr(3) = capKelly vx = iMax(arr()) ---------------- el error se produce el la variable vVal que es del tipo variant alguna idea ? Gracias