Sub no funciona al identificar numero

[Julcar]

Holas, tengo el siguiente Sub

Código:

<%
Function filtrarNumero(ip, texto)
  Dim aIPS, i
  aIPS = array(62,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,109,178,188,193,194,195,199,212,213,217,190)
  For i = 0 to UBound(aIPS)
    If ip = aIPS(i) Then
      Response.Write texto
    End If
  Next
End Function

Dim visitante
visitante = Split(Request.ServerVariables("REMOTE_ADDR"),".",2)
filtrarNumero visitante(0), "hola mundo"
%>

Al subirlo al servidor y ejecutarlo no envia la cadena "hola mundo" a pesar de que he realizado esto:

Código:

Response.Write visitante(0)

Y bota el numero 190, es decir el ultimo item del array.

Y ya me tiene de cabeza ese procedimiento y no lo puedo hacer funcionar

Alguna idea?