Sub no funciona al identificar numero

[u_goldman]

Asegurate que la variable ip reciba un entero:

Código:

    If cint(ip) = aIPS(i) Then
      Response.Write texto
      'Adicionalmente me imagino que debes salir del for si esta condicion se cumple
      Exit For
    End If

Saludos