A ver, no entiendo bien ¿son 15 proveedores o solamente dos?
Si la comparación es unicamente entre dos proveedores, no hay que complicarse tanto la vida:
Código vb:
Ver originalDim sMsg As String
If DATOS(0) > DATOS(1) Then
sMsg = "El mas barato es ATT, con un precio de " & DATOS(1)
Else
sMsg = "El mas barato es Avangard, con un precio de " & DATOS(0)
End If
If DATOS(0) = 0 Then sMsg = "El mas barato es ATT, con un precio de " & DATOS(1)
If DATOS(1) = 0 Then sMsg = "El mas barato es Avangard, con un precio de " & DATOS(0)
MsgBox sMsg
Para que funcione el código que puse antes con decimales, sólo cambia la asignación de la variable
aux de Integer a Double.
