如何可以从左到右匹配一部分？

下面是乔治老师的代码，一切正常。最大的优点是可以从左到右匹配一部分。比如：aa = "11.9.67.180"ipList 里面是 11.9.这样也能匹配到。我要的正是这样的效果。

<%
Dim aa, ipList, ip, found
aa = "11.9.67.180"
ipList = Array("99.88", "110.52", "43.80.235", "11.9.")
found = False

For Each ip In ipList
    If InStr(aa, ip) > 0 Then
        found = True
        Exit For
    End If
Next

If found Then
    Response.Write "ok"
    Response.End
End If
%>

但是改成如下后，就只能完全匹配了。我希望像上面那样可以从左到右匹配一部分。请问如何修改？谢谢。

<%
Dim aa, ipList, ip, found, dbIPList
aa = Request.ServerVariables("REMOTE_ADDR")

dbIPList = Rs("ip")

ipList = Split(dbIPList, ",")

found = False

For Each ip In ipList
    ip = Trim(ip)
    If InStr(aa, ip) > 0 Then
        found = True
        Exit For
    End If
Next

If found Then
    Response.Write "ok"
    Response.End
End If
%>

数据库的内容是这样的：99.88, 110.52, 43.80.235, 11.9.67.180

也可以是这样的："99.88", "110.52", "43.80.235", "11.9.67.180"

只要哪种能用就可以。谢谢。